(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     89887,       1808]
NotebookOptionsPosition[     86495,       1750]
NotebookOutlinePosition[     86927,       1767]
CellTagsIndexPosition[     86884,       1764]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData["ClearAll"], "Input",
 CellChangeTimes->{{3.8202169194491043`*^9, 3.8202169233694725`*^9}, {
  3.868583075194594*^9, 3.8685830773256073`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"1b771191-4ce4-400a-a798-e7a8c882a346"],

Cell[BoxData["ClearAll"], "Output",
 CellChangeTimes->{3.868583103179158*^9, 3.8685847970665274`*^9, 
  3.868585540531411*^9, 3.8685858373347597`*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"5a49dc50-47cb-463d-a618-28ace5d7e9df"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Equations", " ", "10"}], "-", 
    RowBox[{
    "13", " ", "as", " ", "presented", " ", "in", " ", "the", " ", "Appendix",
      " ", "A", ".1"}]}], " ", "*)"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"1", "/", "2"}], " ", "corresponds", " ", "to", " ", "the", " ", 
    RowBox[{"risky", "/", "safe"}], " ", "box"}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.868583111760176*^9, 3.868583112414297*^9}, {
  3.868583169966873*^9, 3.8685832060145745`*^9}, {3.868585192432282*^9, 
  3.86858519254424*^9}, {3.8685956313567615`*^9, 
  3.8685956579485846`*^9}},ExpressionUUID->"2117575c-309d-4821-9349-\
d5adf814ff8b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"E12", "[", 
    RowBox[{"c_", ",", "p1_", ",", "p2_", ",", "x1_", ",", "x2_", ",", "r_"}],
     "]"}], "=", 
   RowBox[{
    FractionBox[
     RowBox[{"p1", " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x1", "+", "c"}], ")"}], 
         RowBox[{"1", "-", "r"}]], "-", "1"}], ")"}]}], 
     RowBox[{"1", "-", "r"}]], "+", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "p1"}], ")"}], " ", "p2", " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", " ", "x2", ")"}], 
         RowBox[{"1", "-", "r"}]], "-", "1"}], ")"}]}], 
     RowBox[{"1", "-", "r"}]]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8200358556603293`*^9, 3.8200358771821513`*^9}, {
  3.8200359858729706`*^9, 3.8200360659272227`*^9}, {3.820036240864129*^9, 
  3.820036277567603*^9}, {3.8200363376544037`*^9, 3.820036338578801*^9}, {
  3.8200390009969487`*^9, 3.8200390041829457`*^9}, {3.820051785680381*^9, 
  3.820051785745599*^9}, {3.8200518203702974`*^9, 3.820051831090622*^9}, {
  3.8202145496692963`*^9, 3.8202145500437264`*^9}, {3.820214582832986*^9, 
  3.820214583024474*^9}, {3.8202159656755624`*^9, 3.820215972742573*^9}, {
  3.820216941649089*^9, 3.820216943739703*^9}, {3.8202170271873503`*^9, 
  3.820217029960022*^9}, {3.820218366492253*^9, 3.8202183681800594`*^9}, {
  3.8203065253859816`*^9, 3.8203065668888807`*^9}, {3.8260867526328983`*^9, 
  3.826086760747165*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"c965309b-9900-4e6c-8d90-3dc56d397178"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"E1stop", "[", 
    RowBox[{"c_", ",", "p1_", ",", "p2_", ",", "x1_", ",", "x2_", ",", "r_"}],
     "]"}], "=", 
   RowBox[{
    FractionBox[
     RowBox[{"p1", " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x1", "+", "c"}], ")"}], 
         RowBox[{"1", "-", "r"}]], "-", "1"}], ")"}]}], 
     RowBox[{"1", "-", "r"}]], "+", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "p1"}], ")"}], 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", "c", ")"}], 
         RowBox[{"1", "-", "r"}]], "-", "1"}], ")"}]}], 
     RowBox[{"1", "-", "r"}]]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8202146284455547`*^9, 3.8202146461239705`*^9}, 
   3.8202147508926215`*^9, {3.8202157697232714`*^9, 3.820215774186892*^9}, 
   3.820217082266385*^9, {3.820218376709762*^9, 3.8202183786326942`*^9}, {
   3.8260867803963547`*^9, 3.8260867846674075`*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"b25ab621-b8fd-447f-b04d-61bccd1573a4"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"E21", "[", 
    RowBox[{"c_", ",", "p1_", ",", "p2_", ",", "x1_", ",", "x2_", ",", "r_"}],
     "]"}], "=", 
   RowBox[{
    FractionBox[
     RowBox[{"p2", " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x2", "+", "c"}], ")"}], 
         RowBox[{"1", "-", "r"}]], "-", "1"}], ")"}]}], 
     RowBox[{"1", "-", "r"}]], "+", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "p2"}], ")"}], " ", "p1", " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", " ", "x1", ")"}], 
         RowBox[{"1", "-", "r"}]], "-", "1"}], ")"}]}], 
     RowBox[{"1", "-", "r"}]]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8200360696140556`*^9, 3.8200360782226353`*^9}, {
   3.820036263183298*^9, 3.8200362785130916`*^9}, {3.8200363414788866`*^9, 
   3.820036343249179*^9}, {3.8200390193937626`*^9, 3.8200390216084456`*^9}, 
   3.8200396469251776`*^9, {3.8200518421627254`*^9, 3.820051860180271*^9}, {
   3.820215975531804*^9, 3.8202159808581967`*^9}, {3.820216946343913*^9, 
   3.8202169467318964`*^9}, {3.8202170336572113`*^9, 
   3.8202170375641356`*^9}, {3.8202183714662123`*^9, 3.820218374520403*^9}, {
   3.820306572951357*^9, 3.8203065849998302`*^9}, {3.820306666569188*^9, 
   3.8203066666659017`*^9}, {3.8260867695431037`*^9, 3.826086774712229*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"052545fe-9598-4fa7-986f-4b7f4853576d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"E2stop", "[", 
    RowBox[{"c_", ",", "p1_", ",", "p2_", ",", "x1_", ",", "x2_", ",", "r_"}],
     "]"}], "=", 
   RowBox[{
    FractionBox[
     RowBox[{"p2", " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x2", "+", "c"}], ")"}], 
         RowBox[{"1", "-", "r"}]], "-", "1"}], ")"}]}], 
     RowBox[{"1", "-", "r"}]], "+", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "p2"}], ")"}], 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", "c", ")"}], 
         RowBox[{"1", "-", "r"}]], "-", "1"}], ")"}]}], 
     RowBox[{"1", "-", "r"}]]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8202147314851103`*^9, 3.8202147483916674`*^9}, {
   3.8202157773554945`*^9, 3.8202157811892757`*^9}, 3.820217085257191*^9, {
   3.8202183807700634`*^9, 3.820218392566024*^9}, {3.8260867894647512`*^9, 
   3.8260867926183224`*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"5c86a984-d288-47fd-9481-8d4a94459778"],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"Replication", " ", "of", " ", "Figure", " ", "A1"}], " ", 
  "*)"}]], "Input",
 CellChangeTimes->{{3.8685832144444976`*^9, 3.868583240670423*^9}, 
   3.868586818129645*^9},ExpressionUUID->"ce9e3883-ddad-4cb7-8414-\
5be3e234ff72"],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"left", " ", "panel"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.868583244847557*^9, 3.868583250846569*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"805faf4c-9be8-49d2-9933-395a7e33bca5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RegionPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"E12", "[", 
     RowBox[{"20", ",", ".25", ",", ".50", ",", "100", ",", "x2", ",", "r"}], 
     "]"}], ">", 
    RowBox[{"E1stop", "[", 
     RowBox[{"20", ",", ".25", ",", ".50", ",", "100", ",", "x2", ",", "r"}], 
     "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x2", ",", "41", ",", "99"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Potential content of safe box\>\"", ",", 
      "\"\<Risk aversion parameter\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8239455840914445`*^9, 3.823945591405438*^9}, {
   3.8239456985615044`*^9, 3.8239456987815027`*^9}, {3.8239489980677814`*^9, 
   3.8239489994435096`*^9}, 3.8239490315021*^9, {3.825147544221039*^9, 
   3.825147546040015*^9}, {3.826089011781014*^9, 3.8260890245327387`*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"dcd583a7-ae0b-4f8e-88fd-75da28cd1230"],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxll3lUU9cWh6kiKhqcANuggmNTHJ8SrBPnKCSMQhICRNQ4UAQNFUudkJbi
FMUW6wAIzmAdQG2UqoAGpKiIAZFBiQIihNw4tDhEi5U6PPvW+t27Vh7/sL5F
WPf8vrPv3jtDF8fKIrtYWVlVfmJl9e/vv+L3fWaV5EV7nDxplzUzxmNbWkaB
1kbMsvPZtLD4FG+Wz1Xu6hDa+7Ls++jnNPNeP5abu6a4aYYGsPyt87Y61YnZ
LPeYtiVOMD6I5aDRpVvN4RKW+YX0rmSIlGVGfPlzTSvHZ27PWMM7KmM5YbG2
TBUdzLL4+VRH3Wg5y/0SCyMFzzhu6vXleXVeCMvHMy9YM6tCWY77XCj3nBLG
8ozzvx3JestxN8+JLz9cVrAMf1crRki3mnMJ/IHhDwx/YPgDwx8Y/sDwB4Y/
MPyB4Q8Mf2D4A8MfGP7A8AeGPzD8geEPDH+WvgKvDIzdYr7I+gLDFxi+wPAF
hi8wfIHhCwxfYPgCwxcYvsDwBYYvMHyB4QsMX2D4AsMXGL7m76gKZ4RXWV9g
+ALDFxi+wPAFhi8wfIHhCwxfYPgCwxcYvsDwBYYvMHyB4QsMX2D4svQzgPR7
rzbrWD9g+AHDDxh+wPADhh8w/IDhBww/YPgBww8YfsDwA4YfMPyA4QcMP5Y+
mI4cSaq+mvUBhg8wfIDhAwwfYPgAwwcYPsDwAYYPMHyA4QMMH2D4AMMHGD7A
8EED/YcxwtusDzB8gOEDDB9g+ADDBxg+wPABhg8wfIDhAwwfYPgAwwcYPsDw
YZl/39E/XwpT9Wx+MPKDkR+M/GDkByM/GPnByA9GfjDyg5EfjPxg5AcjPxj5
LfN1vE25pjY3sPnAyAdGPjDygZEPjHxg5AMjHxj5wMgHRj4w8oGRzzKPVD5+
j17SzOYBIw8YecDIA0YeMPKAkQeMPGDkASMPGHnAyGN53vqQaLdUfQt7XjDO
C8Z5wTgvGOcF47xgnBeM84JxXjDOa3meTZ9MOaBVG9jzgHEeMM4DxnnAOA8Y
5wHjPGCcx/J5E0/3tGGERvZ5YDwPjOeB8TwwngfG8yw/36JoWM5jGPbzYHwe
XNKdv1TpKaIZ9ncqGOE5gv0bLB8+sIeTTkwLHsaOcU+9Tp542B/XS3zo8vS8
W3pJFUkM7ydO1fvSp2+cfuQxd4j9ajtGovSnPtKieUrPe+TEzl6beEwAyx6n
ewzXqQLpLyeU4zRZTaSuvFup2hxE33/49+cBcYtbfyZLK2HZ6t+fJCk9fbI6
WqBpJbqUxCClp4zldKd3B7U2wXRuWFaNRNlGFuYkPOXrOO64ujZFLwmhPbvG
TY3nMaRU9rpJaB/K8k8tq8ak6jke+jauQqJU0PxfZx3J0ppYX2D4wv4IP5j/
2I/gB74s57+lH/QP9Ef4gS/LfmLpy/L9tPRl+T7AD+oP+VF/ln5QLw0l4TM1
rV70pWr1AffUfBLbFNaiihbTJbtpmtLzBpm6rH68brQ3LXnSukSTVUms/5b/
IHjmTT9+uRtkZVVNrvgFzFNuDKDOx0fuNPMbyPa7upNa8Wx6U9bxhq9rJIol
vv/wbQPpuvdliz3j75PSqqxBuh8l9ImrG1+n+tgfHBZ5xbdLaGnS/kClZytR
PDl4Sd1fRjPqrTea+QbytNv+cM/MYCrecOcPvq6N8GekZ2iPhdJXY4/JPeMZ
9r66TBmbnKovYfd/8NHAezt4R0X0jPHdC626lK3vXdnrCrXqWnafAd/aXFel
zvOhS/82tEuUdez/5/yvcRazf9cG9N8s0NSQMZM7Z8SnyFn/YLy/Bxvu1UiK
5XTI3RkumiwjUSx/lWDeG8beBxj3oet3u4+uIoxWbrRL1ku4+sTzUW/wjXqD
76Ythld8V84v6gscd+TBbv0ZKesX9QV266hfwRNxflE/lr7x/QH1Yjv90BUe
c431i/0oc4BsCLPKlw785bfQeB7XT9BfsD+Bv8qq/tpzysfv+0GbLmdp69nP
Y98YNz6oKOutH437Ry7Qqe6y/cay/+D9erpevFe/I4gKcvdUqARc/7HsR3jf
Uua5xAiCpGw9oh9Z9ie8f8PXDu7F3JHRFWO+zlebufmAeqgLmLvB3MnVL/qX
ZT9DvWwamvnmg3MIWy/oX5b9DPWiUeyeHD9WwdYL/ME37suy/6Pf4f5QX7g/
y3mAfof7RP3jfvD+gHH/uC+cx6MsNPrpWRFbP3hfNbQxMVVTRt77SKrq3/qw
/4/3067b5CRB7G3i1fmLyWUtt2+jfq61DkkzN3D79bxVjmn6pAfsvnPwm1O2
TForu0/cpVbDNf3ayLQqryhJH+59xf0tzeGdV/tx831HwuBz6lpuHvelRpFy
komdxwGCVcWqjI/+D69Ir5suoc1Lf3jBT2sh5rXTs56XSKlHeRSJ9zCQdIn6
2KqIUDo2+oJYqWVI43zDbaWXiHo48C8L6kqItN+0Tl4Xb8rvn+vHzLlJTpYO
/skh2IdmFpVN1K2vJdZlO5LvXPWlUT/kNqrs6smPo3VqYZg/3RrN28wLvkfO
rlw3Mq7nbHrCVxGmlDaR6VHepcqbQbR2T/6HD4IWIrvSbdAoo4SudJ+/yRzW
Sjp2njUXR0npd3UDRmqMrcRj+tfXva2DqXV+3j5tRBspn2msiSmQ00rDKBfN
r0ay/E7e0ITAELrfZ7Wzpj9D3HmvE9NNIfTwu9GLBXEMOWbnnvztxTC6tdzp
IX+NiSRGT5Y9nKOgnx5t8VKWcfO34ebiNG2Hiay8YJp0sdmLrUdFsuhp0ihu
PzE12eZ6H+HmMepXbsgJ1/1Rwc7n9MUXrdzl1aT4/eCcqC+4ea1LmRr3baE3
W7+Y3y3t+w+a19WSuOqK4Jw8bt9BveuejPZOnVxPajdkm0cGcfvPMBvnSzVT
/n++K98WOOv875OYREXhf6Zx815s82b7sFBu3mP+R1htXy6IbSbV7p3TvLZz
+9LpjYMSHFZy8x/7QJ547XO+aythOp4L9rhx+8DjwIC1TC9uH8B+8Pf98+38
iwbyvbWW1ryTsf0G+8L2xxuahee4/So6WjFU84mRXDmTERcp5vYHdp+16e6s
kTLk+ukexzJzuf0B+8ReV92X8e8YcnrW7QUlIm6/WpT76BD/shf94YtTb+Kv
FZApwyNaB9SI6KkJi9u1w66Ra4W7Vu6LFFNFumiBLugG2RmQnKuZK6bWC9LP
CHrdICc/G9W88Zg3NeZfNEsOV5PBb/+IbezuS52sYpIE0ttkgUvve123+dHv
pm3wSi3Uky0PdbuWjQmgW2wCDugbGkjUS68op6ezqf2SgO95+ffJhNRK+8EN
gZSXG1Ss7v2ABJeP8V+UGkjfjltdqcptJtn14oWXIyR0ryZ2meBqC/lU2KkR
9pTSrJYZk1KTWklV+L5ZkU+l9N7Yz0dolhnICHf7Za/WyOixP13neD4xkE/T
+xyWqGTUOSaqB9NsIMrNrwum7g6m9m6yKyp9G3k6dDdpPxpMTeUL43imj+/X
F9YHToyQ09e2B45niYxk3IuK3/KSQmnr9qoG4U2GbNsZJc8fFEZXO6qW80aY
yCnvwtgaUyi9uuD6YI2Nid3vOzKd+izwPEeKOs/P7P4rt8/ZOjwrrPzYX7AP
nX1ss2mHWEQP996XoGFKSOyy8GcFySJaIJYeVn4oJSO2fPj9hdyH7eci399f
t0f70KIm0wjmUi3xTZ7ef+0pH3rpebaHRlXH9vtfx/zWy2rhPXb+Hh2bc0NF
W9j52rSrgcS/4+ansEo5Iz6Sm39XavdVSey5fb7XRscxqSncvIuOcClWlZvY
/aq4RRsh+NlIFvesye+cIqeuaUvuC0OMRL7EceXM5XI6TNRzgG6dkcS8cJyQ
dENOv7VN9FFeNJJBHeddTt4PoXFh+iGaGG7/2jRoUbp2iYkUZ+/8a0B0GN34
WYFIGfCxf630+U6pCqPjn7gs5wWaiGzKVtG6h2H0cOgXCeYUE+n/x4TJwkgF
FfsLt+orTET55frssbkK+lVRvp3uTxPpOu5AoNZKRDd/4ygp8ihi97lOJ6cG
s66E+MZeMLzsy+13y+rHqSou+NMesvOFWTYNJHZSl6xbJf50qa/7asFnDez+
p654lKstayBx6zWzmn73Z/fBLorw5+2ZAbSzcO4DSUYjux/+kjEuiefQRN5c
NqxOyuf2xecpJxJujJBQx8yqS+o13L7YcMVxVnxhCzmX8t5u5xEJnd+4txdj
10rcO67f1dZw+3rfSd+oL+R+nB/Z20m8gNsnzfknApRKAxnyicN8/UQZ3fYo
tEV40kCmv2MKJ/YOpsdjbvkpl7WRrxwMrd/4B1OJbXuY58E2su3a9jKygduX
ziy8Ve0WEkIXxCQ/5g9kSO2Bx8dFe0PoXdfzHR9mMSRvdMeKRZNC6T+zF8k9
D3P7qrFs63fmMoZcjdzdL7EqlM6b3fmQ/4YhERkTSRhfTL26R63QzLhOXtt2
9FVE+tLsGvsBVhPvkIGD1aKYUX5U9sz5L6GpnjTeGua1/5kfbYuouaHeepeE
/LxiqEEWRPeGhcQIzj4gsqhRL9NHSmn5sZxn/EOt5PaL7w+VF8moy+lB+7Wf
txHXn04HZDcG0wA3w31hHyMRaL++4No1hL5q+6tK0moknQsmJHT0VNCks3Pv
CQ+ZiHpPoUN5npj27f/ppvg5FaRfxhzfyn+8aVaAbo3n7hqSGTmyhyAikD7q
Le3LRDSTBO+NftODvWn5+/HejPQWeTF/T3jZutm05PHcWyqb++S/TsqsXw==

    "], {{
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[0.3], EdgeForm[None], 
       GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFmHnc11MWx7+X7GSJSouSpT2VIimKirG1IGQra0Q0lOxqypImElkjoUzS
I2uLLCNbmcGMnZlhjDGDGYPRGBnmvF/n/Xs9f5znfO89957zOeeee8/5PTue
dM6wsetVVTUw/qwfvHFQCWJuh6BNgjYN2j6oQdAGQa2c2yyoiWvZ20z5hkEt
gzZ2f1Pl7G+ufKOg1urYPGjXoK2DtglqE7RFUMOgHZUzbqu8UdC6oA5BfYN2
DtoyaKugXeTo2kkdyFpoE0zt1LFt0Cv63D6oiz6AsZO48bujfjLu7Bzruhsj
4tFVG/i9mzoY764cX3vqD/7trT9g6VxSP/700h/82MO1+LGnHNleyonZ6UFH
Bg0P6u0centoE3vdxAXWfbSDT8cGHRj0M3kPMe6vD12V9RRLf/0nTgOUo/sA
/WT/fsrZP1A5cTpIHfgxxHMDyyH6jE8HK2c8VPm+UkfP5DD9JH6/Vc/goEPV
gWyQNsE0zP39gg6X48fR4htk7PbXpyP1gfFRzrHuOGOBHyP0mZgdow7GxyvH
jxP1DVynavsIqb82upb086Sgka7Fv1eN0aigk43FMLF38gxOcQ69J2gTe0uD
FgU9GHSa9vDpiaAHlI0THzbP0h9y4UexnBd0pjHCv7OVE4Nztcf+McrZP1Y5
Mdi9JO7zgy4KGh10RtAEcROP8frG+GLl2Lw+6PKgK4Im6gM5fqEcXReoA9k5
2gTTJeoA16Vy/Jss7nHqHeu+y/WN8STnWHel+MDbuKQfU4g99zTotfi+SjlY
rhErGK8Lukzdl2kfG9P1E4zTXEtsrpUj+6XyS43HUZ7BDOfQd7U2JxqL4a6b
qW+TPPu7guYG3aYN7N+kb2C/3Tls/i5oatCsoNnKsXOrWNl/o2vYf7Ny/L5D
HWBsXtLGvKA7jQXnOUc543vEgZ0bxDtZrDOd+7327taP65Xdok0w3asOsNwn
R75QTNi8X//xdYH+MP6Vc6z7NOgNMS8SNzYfUAfjN8W9OOghbWPzce2xdr72
sfGI9rC/xLXIH5Yje1Q5WD4Oer3KHHvMOfTuUNJWnbEnD8nLvwe95Ty5T96S
w89Wec95A57UHlg+D3onaHnQjiUx8b1SOVie0R/2rxA3+59SDq6dY++7yl9y
DzZ3LalrVdD6JW0/F/RF0HvO12oz9esF9T4d9KIcXc+LqSZ7TEz/CHpf+Qfu
f7nKvoO6Sf3+Y9AfgtYEtS+Jj++ifLsq+w7qMrWbXoQ6XutNmqqLHqGF6+hd
qJnUzi3FTg3esCTu1VX2JtTY1lX2RK3cs5lzjOld2riOvmRXY9FQfcg21g62
NxAj+Oh32rqHeks92l+s1ERq+ZdBv6myl2nhOuovfUV7/W/uXBf1UkNqPU4n
dTVT3lks3dQFVmprL/2hrnYXF3W4tz53dw9+0jP0qOp7lz2MXy/HbZzrqW+9
tfFDlb1dn6BjA/+aoI/ERN3sJ1Zq+j7apP4O1I9+yro5N0C/iVmtN9lPXfhx
gPvBeqBjegrq72AxUtNrfVCtV+qg/b76c7Dr8O8Qx/SY7YwT/lHba33Koa57
u8o3ZZn6hmobP6jtw7RJbT1Wf3jvh2vveGX4RJ0/Qr+Pdt2B7hthDIa7Dp+P
cR1YT1AX9qjJJ4txZFXfy5zoOnCd6jrqFLWLGkY/M0r8Q9VBP/F1lWf4qvEd
oW2wnqYuMJ3uGDl1c4z4zqzq6yF8tPvHKAMTdfscY8FbWOtZzlYX2Me5jv7k
PLGNFvuFxma0OMBEnZ2gH7y75+vzBMdgnei6/vpzeFXfryD7qcq+6udV5uUw
YwPuS4wd9ZW6dKu6qb9X6g/18QptXK0Mn2r9Bf5Mdt149001Ble4jp6FPuYX
YrpGXeynJs+o6nuRWm8yzXXsv951tb7qEom6P925GY4vdu5a4wWWKWKZqS6w
3uAYHNTu2WKnN6j1GvBZ+jxbGbpvN17TjFmtL7hFXeC4w3XgpobPUQf1lFr+
TZV1l97n26BPquw7wHeXe8A31zG9zd1iOsvYXSom9M0zBnO0XetL7hXXfMfg
XeCYtfQOC8VK3b/fPbwJdepaqIx+YLH2wESfV+tZFqlrbZU9zZvaW6Ku76rs
G97WPnWf+k7NoHZsV9X3KEu0R/19VL30BY9rZ6njhc6xjr5imbbYT4+wXH1P
OkYXtX2le552jI5nHKP3Wcf/rbJ3oeeg96C3+HWV/cZz6n1EfU/K6RFWVfW9
Bb0C9fplv9H7krLvq+wt6CnoGVY7/5Rrn/c8HtXOn4xXraa+Ytw+DPpXlb9H
eee+qrJ28A6+6nez0L99yT7vz87zVraMuRYle9Dtgm/r74u/VpmP5NxfqsxT
7sJUv7lTN7pmljnBmc8T9/vGoXXoa1WyX/xQjOD5m+vJp8/Mi2We07ueXbvY
17ZkD7dT8DYl+8gXjBl2/uk38e0Y8g4l+7CvtDdYXz/ye72S/o/Sj4/15d/6
OUufPvF7i1i/ecmcLiXPoL3YP9XfLWO+Ycn8xu8v9B2fmKvTp8/1a+tYu1XJ
s/+PsSAOjWJum5Ixws6XnvEH5gn+PqTeOs/xa/0jxtzPOvWtFeMn+oYv/6uy
v+nj+X6rr9ik5+lrPL/XJufynfZ2izVdXMf3D8ahgfeC+0DuUGvO85t8ou50
D95NGd8/Gf+fPA++uT/oWSHGYu/IXAPv3QZ+Y4t7wr2q3a+NvGMb+71aHZt4
Zry3m5Y8b+KxWcnz5gw3N//Xet7MoWND9XCGDc1hzoGze99cJnZ9jdnWnuk6
5/vIG/n9nbmCvso4EJ9O3jvi9qOxY76zMW9vbn5jzjb1/wDU08bea757Oo+e
5t5r7i9zTb3XzCEjb9nXzL2vO+Yu3OR+7vcb7mE99493lhymRpBv97ivsXtZ
21K7O3j3F5ufrf3mfUYPufyWsjrn2viOv6O95fKdnCcfdjZP4LuUvFu8vbzL
5BFvBt+rnGtrzrynbJW8nfO7qJMc423mLX5R3sEcIIadjC3vC/Nr5B1ds61r
XnO+vWs4lx7GiPPkXOnfm3jGvOX0E7z1C8yfLq75wfu2zvvS3Xt0c/BhJX26
Jfjh5iT3rLt3it8ux5V8++gh6TtPck1Xv8HFPL1SV+8pe4c6HmJOdnP9rcGP
LBmDy4OfVvItmUZsSr4f9wefVTKnHuTMS963qUFLS9bVM4IvKflWjQ3+RMn3
8fHgs0ue/1nBHyv5Dk0pOf5MP3p4Fq2r/O3Eb6nDYu7hkm8q8dvNu7OsZLze
87700N+bgg8umYP3BT+q5FuxOvip+tUn+GXm857BJ5S8y/A9/L4g+MSSNXgR
cSp5X18OfnzJd3qv4BeVvNd7B7+45L17KfgxJWvVSuTGcL/g15R80+4MPq5k
XRkZ/CBzjBgfbJxvDH5oyfv6SvBTSr79+NrTWDXxu7FYeomHcxjtWRD7IcZ/
HzCWvHf9gl9V8o5wJmM8C3AtFxu4ThQba/d1/ZWePec+qeQ5cUaDgq8o+Z4O
DHqk5Ds7IKiu5Lt8Q9DMIN7L+UELSr7p44Oml6yR1wWfUbK+zQt+RMk6cBfn
VvItn1sypsST/D3fHJ4TfGjJ2nJb0B0la8ztJX0GPzlypnnCufX27Ij36cac
cxjlWQwPfm/J/wndU/LOYIv7eq55SIzPNs4Lgz9Qsj6dXPL8OLsRJfOD3OBu
rTQ3uHOrzc8TSuYZOfZ/iG8azw==
          "]], PolygonBox[CompressedData["
1:eJwtlGmIj1EUxu+ZyNhJalKKNDXlu3WQ7PFlUPZthmyZ0UQo+0i2sUyU7GPf
icmeZWxRRGmyZF8Ssu8Rv6dzPvw6z3n/7//ee859zts8v6hvYUZKqTdUg+mW
0kC4if4IM9F7oRZ8IT9HbAvF6MbELrAVMuE6z8qJW+AaugZxAEyFD+SPYRB6
mvnaT6AfehO8Qz+AQ+jVcAddh3gCCuEt+S+oROdCObopsQPMgx/kB+ESuiOc
RLcgzoXDUBe+82wosSd8Qj+Ffeg98Dx5jbOgAF6Sf4Mp6KvQEh6StyOehywo
IW9DLIMUPZlAvAjNoIp8BnGI+V6f4Qq6s95B58S7qkFn1382wHqo1H0Q+8AB
qA1fVSNxP7xI/qwVrIC/5LmwHb0tzvoo+V4boXrseUq9gfvJez7Z/Ew58Uy9
6mree/VsknlP1cu7/N6JeBmy44wrib0gA/6RHycei3d1ZyPMPSOv3CLfRdxh
7oWaxOVQCn+S1yDvnYVG4cFh5j1U757BYvQSeJ/cY6vMz6C9dQdFsNDcK/eS
3+1uuJ38jpehl8KN5J48gh4Pr5N7SLUMN99LNY2CC9Ak1pB3Bpt7Vx7KQ68z
vyv1uD9sNvd+ZnhlZNSeFWu1D+9ozWJYBL+T1yR9BhrGs9nEOfAquecnoufD
T/QbGB0ekTfk2XHmnpfXVZN62wMsejzWfIY0O5ox7dUdGsSe6n1rcy/pDvLN
vwGafXmuBL3AfG/NWAW6G9SD+nAa1prPstYcYz5TmiXVoLPsNL97Cy/pznRX
2VFbRaylGo8S15jPkvbQLOqbo2+NZvI/U+6m3g==
          "]]}]}, {}, {}, {}, {}}, 
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
      LineBox[CompressedData["
1:eJwt0udWDwAABfA/KTsjHsA3TxBJskqRtEQZJXu0iIyIjBQNRSors4xQtCgt
I5VX8Cx+nePD75x7P9+7LCc/JW9aIBDoZzpTeSl/uKXc5jQ7eEkrr9hEFdXU
EM4ZVvCNnZylmAzGyCSO3Uywi3Ps4Td7iaeWO9SxkvNEMEgWm8lmiFVcIJJh
9rGFetp4zVveUEIO73hPOwkcYJL9XOQg4xyilEusZoTDbOUuH9jIRy5zhA6O
0kkiV4hilGNs4x6fiOEzZRynixNc4ypr+E4uSTTQTQ9To/VynRvk84NoylnL
Ax7STDKPWMdPCkjhPn18oZDHpNLIV2Lp5yYnGeAUlVSwnhae8oQ0nrGBXxSx
nSae84J0/vrXBGMM00s7LdRRRiHZJBLJcpYQxmIWsZAFhDKfecxlDrOZxUxC
CGYGQf+//g8wTFih
       "]]}}], {}},
  AspectRatio->1,
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{Automatic, Automatic},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox["\"Risk aversion parameter\"", TraditionalForm], None}, {
     FormBox["\"Potential content of safe box\"", TraditionalForm], None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" -> 
    None, "TransparentPolygonMesh" -> True, "AxesInFront" -> True},
  PlotRange->{{41, 99}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.823945593331332*^9, 3.8239456994140244`*^9, 3.8239489997077417`*^9, 
   3.823949031800806*^9, {3.825147532794345*^9, 3.825147552666457*^9}, 
   3.8260800172660713`*^9, 3.8260868171721725`*^9, {3.8260889871839237`*^9, 
   3.8260890247677217`*^9}, 3.8685830376484833`*^9, 3.8685830689757442`*^9, 
   3.868583103464898*^9, 3.8685847972542133`*^9, 3.868585540711401*^9, 
   3.8685858379368916`*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"f8ab42ec-a2e1-4167-80e9-12967c3e6f80"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"right", " ", "panel"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.8685832558038177`*^9, 3.8685832617745247`*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"b54a194b-4262-402b-b9f7-4107be3a01af"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RegionPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"E21", "[", 
     RowBox[{"20", ",", ".25", ",", ".50", ",", "100", ",", "x2", ",", "r"}], 
     "]"}], ">", 
    RowBox[{"E2stop", "[", 
     RowBox[{"20", ",", ".25", ",", ".50", ",", "100", ",", "x2", ",", "r"}], 
     "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x2", ",", "41", ",", "99"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Potential content of safe box\>\"", ",", 
      "\"\<Risk aversion parameter\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8238577007029533`*^9, 3.823857735591155*^9}, 
   3.8239454731814675`*^9, {3.8239456955314856`*^9, 3.8239456957714434`*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"7684c8ee-04fb-47ff-b4ea-dc7231766c1c"],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxN1ntUzGkYB/DBYEi5tTnl0mairGSjXLJdqIbJaKZpakabtCm3XNq2lja1
ubfaEauoLDatIuuUSyvMKqPkTCQGhZZcZtEhu8OGsO3Zc/b7PPVP53Pe55lz
5jvP73l/DtErlbHdBQLBgG4CwX///07ebStI9/cVHT5sVTB9mfeWnNwKXS8J
2f5ojjpZO5N84tIP7R7WUrL0SVaOOT+QfLeH1r3UQUb+yn6LMe7gHLJo2uYE
5/FysnysPsMcriDbnfJtUowIJpsklU6l99ll171WWR5QklOidRfiFoeQJX96
2hjGqsgD007FOr9gN1tMKd90LJRcnPer0JQURk5w8lD5TVWTvcqPFxa8Z/f0
m/Cys1JDRn7VdY7BGeYSH+QHIz8Y+cHID0Z+MPKDkR+M/GDkByM/GPnByA9G
fjDyg5EfjPxg5AcjPxj5wcgv6PyQlZvNpyk/GPnByA9GfjDyg5EfjPxg5Acj
Pxj5wcgPRn4w8oORH4z8YOQHIz8Y+cHID0Z+87bVh5s8qik/GPnByA9GfjDy
g5EfjPxg5AcjPxj5wcgPRn4w8oORH4z8YOQHIz8Y+cHID67qbbck0i/At/vU
cd9lN1aRcX67Knx66X1/376f7TtvaarxORB0a5vlgQCySjxENNQgoX4Y/Sub
1S1xiyVU77n05njD2Jlk/H5wq7d1caNiFn0ejM8TvlF96/yC+69sNNZvOjaL
nBY+UJLdKKV+GP15g5UjTElSqo8paFjuNzWQbP21lUkROZv6YfS7jpf/VvCe
69/qLvcTVM0mH9xuscHSJKN+GP3nA2URketlVL+1yXBYJ5lD9j4iEhvigqgf
Rr9mofSdXd8gqhe/qg1Mvsw2Xuyp32SWUz+M/ra1kvzGbXKqb9784JXdJwqy
e8LasgKdgvph9OvrC4YZMrm++KMv/JOfswX//aUHUz+Mfm3Ex8uc5cFUn1B4
b0djGdugTZNH+impH6bv37r3zKZBSqr3cot86JHI3jn0w15drxDqh9EvXj3c
wnSD60WVzROyJ4eQow6ltNkZuB+m/Hr+GO6Xx/VG2efrzB1sl8kdXslaFfXD
6D+1w66kIEJF9Xtv37qqOMtur16tbVSEUj+M/g0OeW877UOpfslijUPpWrZe
+brZwzqM+mHaV6VDpJEPud69/Wa8ZUAY+fuWJJfsRu6Hab957czVFXF95/rQ
qjiRmqxZ8SrFnK+mfpj2ocH6id1SrjcMvN7fUMd2eJ9Qp4jUUD+M/lLNjsnJ
4zRUv2Ofcr5zFhv7P3qlRauuVy3tfxj7H8b+h7H/Yex/GPsfxv6Hsf9h7H8Y
+x/G/oex/2Hsfxj7H8b+h7H/Yex/GPsfvm2hXFIkDvB9M2rRuEmiWp+iHg8W
2yxgr3CSixaUSMie9vd6G5+ysb/xeUI/WbG92yw6b/BsLsqKZ+dGSiXNJ6Xk
mLBbAbLXbNdvJKZc79nkji9vPhKlsfU5fhtCa2TkrVrj+hrhHLLmqK94kCyI
7HioYeS6THbbJS99/TU5OeLBH1H2fRTkGYl7ymp+YY+Ojy1LvcS26j5M4Bgf
TDZ/eNh5J4vdlJUvXzdRSdZlRss9Q9g/D7fd19LOzrC9vzfXJoTzPryrzfs0
W1k8v639Fttzqo33nlQVeYTHXa/QPWxhbbb2nW8o+Yk+Qns8it2gGvz7XGEY
+YTiTvNAR3b+g+0uFbXstLtzXeIfsxfGD1hjk6kmBy5rSqkvYbv+s7UuMUhD
tu4Iq3NZwcb7Bc1f0gLbin3+nE9eQ4XwMc8f3idQH789qiJxdJd5LL+sPrd8
JhnvCzSPR+ap3Y7weX2DoT31Fc8j3g9Qn38xvP35xC7z+aw2xzMlkL/P/+8D
qHd9pM4pOc3nb3rXuL/uxvOJ+x/11Z0q90XTu8yvWG88nsHzi/se9ZqhSqP4
Ip+P9KlMiO/P84v7HfVtk+QJLUFd5nvc3Qyb2Ty/uM9RP2NMUUb9Uj53PhPR
lGjF84z7G/X9Tjo2ubh2mf9Zd5yMV9m4r1Hf5F/olPkXn5+9OXeVWw7PP+5n
1O+/5rDq6Ykuz0dM04UsDc8/7mPUr4j66cLM1XyuMofZtA3l5wH3L+qntI2w
KZrW5flJvxEru8fGfUvzs2ZPrLCTz1stVeUl+/l5wv2K+vo+w8qj9Xx+Yvc1
YZ+F/PzgPqV525UvPLeRz9PHBKsWjeHnCfcn6mNG2arspV2ev5NXCmuesXFf
ov7T47sKU/vx8zcoIOiluIz9L8A3dE8=
    "], {{
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[0.3], EdgeForm[None], 
       GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNlvlz3lMUxu+radOkSdOFtNpUtbSh6dsmTZouNEmbpn3TpkkXsbQUKUqQ
0KJoaQVVQVAExR9hGXvt+74bhmEYhmEYhmEYxvPM+byjPzxzzz3nfO89zznP
e5MpXb1rew5KKf0pDBHKhYxg33h8BcJhQpFQLIwj7tihxIcKFUKhMFyYgG+Y
MJHVsaOEscLBwiRyfW6lMIbYVKFUGCkcLowQSoTJ3O/9EcTLhOnCaL4/Et8o
YRqrY1M4w+fOEA6B6zzu83lZOJvTLFbzmAlnx2bjm4jPsSphDnzcp2riFcTK
ya0lbh5z4ea65nO/a6/H55rqyHXeAuLmdCz9ci8X4nMPjmF1bA08G4RO6mgU
1lNzk9AFzyXCWXBrFi7n7pxwJbW2ClvguUy4BD7LhW44LxV6hBqhReiDzwph
kPo6hH44twkDcFuVQlPj6NduZrNS2Afn1Sm0Wc789sK/XdjI/Ban0OV4zhrK
vDzLQmbi2ZTSY/c6r1HnDWeOzhtB7z2DImbnWDE+70s4w3kjmaPPLeBO15HX
ouc3mhl5X4bP34xhbtPh5tkdTS8ruHcsM6+kB1Xk1TKPOdyXZcYTmOkszqhh
TlPpbT28q8mbxBk18PHc6+BZS2wyPu+76HeWHtTzjWfRRA15XS6Eq2ed1/t8
6qhkvs6zPhvhZg0vog/WcAN8p3Gez7Jul8DROungHGu1BS7uzTLqtz6Xwtk6
Xw6X47nDd1t7K+Bj/efgbJ030ytreCX1W4erqGcGdbtma76dWq3zNjivJacB
ex0817C3fRx2A73o5OxOarX/fOFc+Nh3An6fdxLnbBBOhleW2cykzxvwn4Ld
dECsCt96/Kfyree9KcXs3ffTiS1mPY1855yBfyOxJr7bhP9M7Pz8uqhxNnO1
bzN2M+tm8r2ejV3NbPzdOcSa6U03/TmRHjXiP4+cbva2rZUezuvFbmHt5Ryv
F2BbT1v47kJizt+K35q7mL3t/N+VLPGtB+RflP5/M/3W+ne0LYV2rdHL2Nu+
LYXm8tqybe3dLNySQmfOuT2FLveyt+3fxiDfXS9cl0LHXndjb0/x28jhc8y/
hyuI5Yhvpx6vO7Dv4C7Xdis1+d4B7DY4baMnNwg3cu8bgh/4PVp+F16E9zvC
sExwW8BZ/h29JvwjXCPcxFlt3DPAva59D/X7G/9u55HbT34/e9ewM8Vv3jOo
g2ct9V5KzXPJcfw54Rfm96TwXQpdviT8QV9eEH7j+1eEv4RdwjPCTyn09JTw
Qwpd3incRQ/9Lu5jbvdgr2b1voP1Xuz72DvnceGbFL9D/3/3MjN8WPgixbtw
v/BJijfjanpp7teyd9/6sFvh7R7l6KP1UU+8j/yryGkl1kfPHhQ+S/FO3Q1P
1zyI3c46iH8nffJdjwpfpXhf/hZe5Z5R0sXH8P5AKMlE774UHknxthXL934K
bWZkv5lC+58KD6R4a0vl/5C6vhYeS/G2fS/sT/GufCs8keLdKlT+uyk0/pYw
JBM6/lx4KMV786/wOr0sUPztFDp9TyjKxO/zR+HpFG/5z8KzKd6SX4XnU7wf
HwllmZjxf8K29W4=
          "]], PolygonBox[CompressedData["
1:eJwt1HePTlEQx/E5q9f1FrwRu8qutVbJEiWIHkRZGzYIgiBLEARB9N577733
3nvvvdfvZH5/fHLOfe695zlzZubW7FRU2CfDzApQFo+xE13QGfcwD1loi9X+
XDKboHeeYAFq651rqM79WYxzcAkVuZ7COA1XUIXr6YwzcQb/UIqxuIBy3J/I
OBlrUCHFvBEeYDs6oD0eYj6y9ds5ZPD8OIs93sAWtEYzHMJ79EMJjuErBmMo
juATBmAQDuANilCMXTojP5uuOIEfGIYR2INn6IYe2IeX6IneuIutOss22KGY
PJaO2KZn/F47rEXlFGfXGKuQUpxVQ5zCb4zEaKxDtRRn2wTXsUGxF2IzbqEF
Wmm+CS3120a94882R2aKNX2t2XiFRaiLXqqNO1orS3s5iVHaU6UUOfTcTdVZ
7NW7fiZeGxd1z2vEa+eq/strqGqKM/DYZ1jUzmXNvYbeYjHqoa9yexD9lWPP
7VEMUY4/YAly9Izn+jAGKuee6/1ay3P+E8uRh+HK9XHNPed/sAINFPNnLEWu
1vyGZaivPaxHjRS90dSi1s8zTrKoeeN6JUM+xujdLxa16Gv4vb/Kdb7++5dF
7fkeFuKpRW3WsejNRxa15T06FzeV21oWvXPfotayFet3i17IUywfLXolV7l/
YVHbXgPlU3wTChRDmRQ16rU53qIXz2ruPflce/S9dbfold2ae8/4t+C0Yi9V
rt5Z9F6Ocv3aopc857cVk8fiNfwfDuuqZQ==
          "]]}]}, {}, {}, {}, {}}, 
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
      LineBox[CompressedData["
1:eJwl0tk2V2EYwOGdEDJEuoDO6h64B8tZpy6gLqU7CJWQRnMaRAqVqSJkapR5
niPPu/4Hz/rtb639Dftb+3LFjfLrZ5IkuUka8XyJq5RyjRYmeMo4jUxyiyma
+EYz01QySysztDFHFT9o5zvP+Ek1v+ngF8/5w23+8oJ5XrLAHZZ4xSKdLHOX
VV6zQhdr1LBBN+u8YZN7bNPDFm/ZoZY93rFLL/vUcUgfB/RzRD3HvOcfHzjh
fpK60I/yn4EYGjfoWR2MO9chTdcHmqnDmqEjek4farZ+0iz9rDn6SHP1i57X
Uc3Tx1qgY5qvX/WCPtEySrhCMRcpojDeiXkxJ9aJtWPd2Cv2j73jPHHGOF+c
Ob4jSf03p5oyVEU=
       "]]}}], {}},
  AspectRatio->1,
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{Automatic, Automatic},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox["\"Risk aversion parameter\"", TraditionalForm], None}, {
     FormBox["\"Potential content of safe box\"", TraditionalForm], None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" -> 
    None, "TransparentPolygonMesh" -> True, "AxesInFront" -> True},
  PlotRange->{{41, 99}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.8238577053853316`*^9, 3.8238577361861343`*^9}, 
   3.823939170622282*^9, 3.823945473925309*^9, 3.8239457030417447`*^9, 
   3.8251475325515575`*^9, 3.8260800171353674`*^9, 3.8260868128479958`*^9, 
   3.826088987043726*^9, 3.8685830375192194`*^9, 3.8685830690796366`*^9, 
   3.8685831035681057`*^9, 3.8685847973659134`*^9, 3.8685855408258295`*^9, 
   3.8685858380456*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"62f5829c-39f1-4f19-81a5-1599e04328d7"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"Replication", " ", "of", " ", "Figure", " ", "A2"}], " ", 
  "*)"}]], "Input",
 CellChangeTimes->{{3.8685833473104672`*^9, 3.868583347373973*^9}, 
   3.8685868145936527`*^9},ExpressionUUID->"114aef8b-7d46-4056-bc9c-\
d5f45712c770"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RegionPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"E2stop", "[", 
       RowBox[{
       "20", ",", ".25", ",", ".50", ",", "100", ",", "x2", ",", "r"}], "]"}],
       ">", 
      RowBox[{"E1stop", "[", 
       RowBox[{
       "20", ",", ".25", ",", ".50", ",", "100", ",", "x2", ",", "r"}], 
       "]"}]}], "&&", 
     RowBox[{
      RowBox[{"E2stop", "[", 
       RowBox[{
       "20", ",", ".25", ",", ".50", ",", "100", ",", "x2", ",", "r"}], "]"}],
       ">", 
      RowBox[{"E12", "[", 
       RowBox[{
       "20", ",", ".25", ",", ".50", ",", "100", ",", "x2", ",", "r"}], 
       "]"}]}]}], "||", 
    RowBox[{
     RowBox[{
      RowBox[{"E21", "[", 
       RowBox[{
       "20", ",", ".25", ",", ".50", ",", "100", ",", "x2", ",", "r"}], "]"}],
       ">", 
      RowBox[{"E1stop", "[", 
       RowBox[{
       "20", ",", ".25", ",", ".50", ",", "100", ",", "x2", ",", "r"}], 
       "]"}]}], "&&", 
     RowBox[{
      RowBox[{"E21", "[", 
       RowBox[{
       "20", ",", ".25", ",", ".50", ",", "100", ",", "x2", ",", "r"}], "]"}],
       ">", 
      RowBox[{"E12", "[", 
       RowBox[{
       "20", ",", ".25", ",", ".50", ",", "100", ",", "x2", ",", "r"}], 
       "]"}]}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x2", ",", "41", ",", "99"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Potential content of safe box\>\"", ",", 
      "\"\<Risk aversion parameter\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8239477907294235`*^9, 3.8239478606594543`*^9}, {
  3.823948388624626*^9, 3.823948390146117*^9}, {3.8239484259022055`*^9, 
  3.823948454088684*^9}, {3.8239489751078696`*^9, 3.8239489766119432`*^9}, {
  3.8239515846005774`*^9, 3.8239515847712746`*^9}, {3.826089090125021*^9, 
  3.8260891039229593`*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"2d4bb77e-6e1a-4186-90b5-4644382d5cf8"],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxl2XtYzXkewPHGZbSoWeWyynWwjmXHs3KQ2/drqkN1urkPpvaxg0iZYWVi
J4M0pplGpQwSU0Q07WmFKXMkl6gTI5c6dVyGdGhjaA7TaoS1++z7e57H/sPz
epzzO7/P+3t+31/99J+/bOqCNg4ODu1f/fGfvx3HfbZcMzxIOubmOmdOWjox
aOipTbY5wcpuRbImuE+IslV3YrDhtt35VyescsqeqrxmvvFsRPg0ZV3T2O6m
odOVu8QWLdA8svt6pzFH4g/NUN6//Wg768qZyssHa6d7ec5SnnCkYE9mq93t
vUY8fnlitvKKvglXInIC5JmKgSGbbAcF82Hmw8yHmQ8zH2Y+zHyY+TDzYebD
zIeZDzMfZr7A0z2WfWY7pubDzIeZDzMfZj7MfJj5MPNh5sPMh5kPMx9mPnyz
beJIQ3+9fD/phzlW7Rk1L2ZezLyYeTHzYubFzIuZFzMvZl7MvJh5MfNi5sWH
z6c0a7v6SlfR5UW8zSR8Gzan2Xb4KdMD0wPTA9MD0wPTA9MD0wPTA9MD0wPT
A9MD0wPTA/f9R9qsmMTJ0tp8IDjVXKn6YPpg+mD6YPpg+mD6YPpg+mD6YPpg
+mD6YPpg+mD6YPrghLRthcY3dVIG+r9t1V5VvTC9ML0wvTC9ML0wvTC9ML0w
vTC9ML0wvTC9ML0wvTC9ML0wvdKzHzzWpppVL0wvTC9ML0wvTC9ML0wvTC9M
L0wvTC9ML0wvTC9ML0wvTC9Mr+bWxNJ4m0X1wvTC9ML0wvTC9ML0wvTC9ML0
wvTC9ML0wvTC9ML0wvTC9MK/xKT3dPjUW4ZMH/61Ofim6ofph+mH6Yfph+mH
6Yfph+mH6Yfph+mH6Yfph+mH6Yfph+mH6YfpVz0jfGSq+Zbqh+mH6Yfph+mH
6Yfph+mH6Yfph+mH6Yfph+mH6Yfph+mH6Yfph+kX94ZnhjG+TvXD9MP0w/TD
9MP0w/TD9MP0w/TD9MP0w/TD9MP0w/TD9MP0w/TD9BuR95s3rdp61Q/TD9MP
0w/TD9MP0w/TD9MP0w/TD9MP0w/TD9MP0w/TD9MP0w/T79ZsS5ST1ar6Yfph
+mH6Yfph+mH6Yfph+mH6Yfph+mH6Yfph+mH6Yfph+mH6Yfp91S7XrE29p/ph
+mH6Yfph+mH6Yfph+mH6Yfph+mH6Yfph+mH6Yfph+mH6Yfph+o3PXyNDvf6p
+mH6Yfph+mH6Yfph+mH6Yfph+mH6Yfph+mH6Yfph+mH6Yfph+mH6Nc7VH4i3
Nap+mH6Yfph+mH6Yfph+mH6Yfph+mH6Yfph+mH6Yfph+mH6Yfph+mH7bOvR2
MWQ+UP0w/TD9MP0w/TD9MP0w/TD9MP0w/TD9MP0w/TD9MP0w/TD9MP0w/XQF
P602Bz9U/TD9MP0w/TD9MP0w/TD9MP0w/TD9MP0w/TD9MP0w/TD9MP0w/TD9
fg4tvvPy5SPVD9MP0w/TD9MP0w/TD9MP0w/TD9MP0w/TD9MP0w/TD9MP0w/T
D0/McxxgigiUhusTuyXYdijzPDknuVOck1Uv23j+8fNUc4noGu1sDQ71l4X3
lg0blXpONE7sut8cPEVGbT100Rz8g5g+oIeju0mnTP/X/z0la3WRMf6yWi9c
0sFtcaiXj5wScnxeqFet8t6c0HcMmdfVemPOj+ennA/P0/g8nh9xPH7fx/w+
O3uh7zO3joEy7sXyjERbgjjtp58XukEvD/x3YYtFu6fT12oeTZYljbcXGjLP
i2XXZ92KCNdJo95lo8ZwSVhK5kwy3PaWF6Y2t7iZrqnzxRyfvry+7/5ByTY3
i3o/58N6bOtaVWHVHrbvh//zVzWmXKMuQD6OiM4YlfqdiJ3TRZdq9lW98es9
Hra4f+FkrVL9cXZgbZJTto88ExR3ItNYrY4/4bjHr6nmfLHddWof60pfuXCL
TAv1KhcfZFZGenn6KY9dUj3cNNTeh+P12FswM8apSs3D83x6OPeuy7ur3avM
95HenD+9WU/Wn+8j1y9uMV7o7FDiLzuO333ayVqqjs88vJ/n0ax3fv3zn43x
p9T3nZ6Y8+H1HJ/9hNfThx705/kc89CH86Unr+d6YL0wfZc/m64xRdSoefh8
emCOz/lcKWt/Kt4WpHqzv+EBT875xVywrw/nw/XD+fP5vJ7rh/N5vdfrn8/1
8HCdboc5KUi9XxMW1SNtnv3/syK6JG/u6GC/fr4c4uiWdsdfrR/7jaXLpsWG
/hWq14018wdZV14WH3r8eYTlex/Vf5171NldKwJk6jcbl08N3C/KG8I7/67F
X3a4JpuM60+LlANuJz+vniINn9a7hdSVi9FVR0SHSh85LOyjdZrjV8S3i0fP
/X2/APnjtjb7Rw07pHpXriswaoafEpayhiYfX/v++VHkIfPpAH+Z9WVegcb/
nFh60GbZEO0rA+XWx5myXH1/8i2JQ0d1LRPxG15qxnay77c7NWGO0zJ18tTH
TZXmnRfEZYeozaXLX/28Oij8tyGXL4qBXwzMPdfWvp8O7PMiSZvkI8MXzZ8Z
M65KdMmurWv73FtGfxv70i2nRu0nOY+TTww1ZIh7jgmFPfMD1PrrbDs9dh+w
76+sZ8clhuSQXUfV9VATN+hfmePt94Pu4bGdl4abRIcbDk0fD/3//bbpzLTe
1vZm8dchW10KY6bI8T+N1LpPNImgfdX6Xm10co9r9C5b0mUx4GTIomt3A+Rs
ERjs57lORIT6Dcw6EiAfuFTNbdtvu9ge1b+szyd6WRAeXGXoWSzup4WtqvxQ
L2+HJczJelIs0hrevemxdbJcUh91zKlnhXg/MHxR8xiddOzVqz5Cd0lYb8T0
dNziLQ2VXqXxvez79a7IQ7NDE68J5ztL7+w54C3D2n5XmLnVIj4och7pUuYt
MyruXY2oqxXlo9/dPae3j2xTcsnBvcEsZvXbkzd8h33/Lva+Fe7R3r5fX3w0
+Pnbz/RyTJRnSM3Tw2p/HpJr6BVys0y4tXao+36Fj9qPz+28Fn50oY9s9UxJ
cPKoFmt2Rux6OTpALitNcVw9I1+M07+VvfnVflx5vT7EOqlcbPy0sbjI1U9G
/qUl0pBRJiK7zdq0MtpPWmq37vXSlqnrt/fd7FyNuUIUtmo3f5Jiv18XZK06
3bJ2sjzfNdHD/Z0K4XpsiH/rE51cVuM612SoEEG5eQMmROqkn25WRWbHSnEx
x0WuSveRuXed7wc/vSq2NR+Nu1XnrfYn7meB2hFBMQG1YkJiesbFvAAZ/XT9
fUt+uvp5LGvNJaelOeUiMGzf35pW2O8v722qji0ZNUV6bnDZErrWJEZf+9HV
8YT9fsD9Ya/T0jvGsyaxxn3fwTB/+/2B/elZ66/uDppKcTxpb/Ivf/KRgYnd
/mCKNIuNDc0bvgmy3+8WjL06+NBhfzmse+xRTUGpSH/jPfF1O538u/lKD4f1
l4U4mFp2c5xeOg7RFWv8TwqL9q1ONUa9bGm50Ji6uUj8G6uMe/4=
    "], {{
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[0.3], EdgeForm[None], 
       GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxVmgncTtUWh89WmuciSglRkiHJEIlMaZChTA2GJCGSBqFCNMjUaIiQoVAZ
Q9xGzUl1G6g0121Umm8a3P3c/Zx73N/Pap119t5rrWe953u/9/9+Veg5sP2A
ElmWVd8py+K/bGXIsmXRBkU7IEv3do5WNtoe0faMdoh+r2j7RyvhvqUhXe8X
7UDPlYxWJtruni8VbZdou0Y7yHXiQ823d7SDo+3mmVtjzn2jPyxaFdfIV946
1D9CT78VrU3uw7N0ln0VXGetkuv0cpT54DvSe6WjtYh2fLQ60Sp772D9rvZ3
tOeYR1U9HDWsTY819fRYVwZqVpeJfbVcp8fj9BWtfaT1T9BzvrbrcBwbrZy5
6pmbvmbGud0b7Ypop1iD3I09Q/367qX3wSHlqRbtJD37WtoH9WeEdL9RtCZy
wtfM3PTVXM/smrpO7ZOtWcO1SrK1Mjez6RetU7TO0e6Ota6OdlW0K6M1iPdO
j9beXNRvLTMc98c986NNiLYk2uJoc6K1lQfudnrOPxwSR5toHcxHv2fJx5mz
vcf8Loh2mj10lLm5/eJb2HcLZ9ZFD9+50U61357WpE43850Rrbv+zGhDQqp1
frRzrE+9Hq5z/kJzwPdttI3RNkXr7YxgulgPx4BoXe3lImfBvj6uU+cSPXz9
5YHjUj3n+7oO96SQerws2iD7ZU6X6+Ebak/0coWccFypZx5Xy9Mr2mDPdXdm
dX2Nr3Jvvq+tDMPMDcdwPRzXyEntIZ4hvtZ1OK7T89xdr4f7ocj1YLSh0RaF
xHdDtLH2Qb8jnQtzHb3DDMbomcHNMsN6i57zN7oO663mo8ebvMeZcd6DY1js
YVT0d0eb4EzhnqiHe5Ievtv08N0h24hoK6LNjDYr2uQs5YRrih6OO90L33jr
U2+q6/BN08Nxj57eZ8gM6736sdYcK+ssPXyz9dS5Tw/fHD18c/XwzdPDN19/
e7Tp1qf2/d6De2G0u5zbgzLD+pAepgfcC/ci9042x3XO7mH3wr1EZmou1cO9
TA/3cj3ciz13j3Pl+eK5ecRZMINV8sP9qMywrtHD+rR908tq97Jvretw/0MP
05PywP2UnvOPR1vgbNaZjx6f0cP3rB6+V6xHX8/LCd8Lep6pl+RZGe05z7Hv
CevQx4vuzffNlnmDuWF9VQ/TeudC7Zc9Q8x7EO+pvDe85l6435CNmm/JD/fb
eua3UQ/3Jj3c7+jhflcPx3t6uDfr4X5fD9MHembwpvWp/aH36P1jeZjlpzLD
+pkejo/cy75P3Mu+f0Z7TLZ/RXvde1/KTM2v9HB/rYf7Gz3cX3iOM7eF9N49
MF5vcRbM4Hv54f5RTvi2Rfvc+n/oyfeDc2HfVs8R/+Q5ZvBvmWH9RU7m8bPr
xH+aD6bf5OfMX96Db5eQ6tHXdjnhy0Ly/A4sERLPd9H+9hz7QkjrrO0U0jqs
u4aUj353DukeHEfymTPaftFKhnSP2r/aO/3tFtI5OHYPycO3T7z+3ZmRY5sz
Kx1SH/S4V0iczIYafziD/UPycB8UEid8pULynD8gpHX49gypJ3IdbG74yobE
Q+9HhLSPmuVCYqb3Mu5l3x4h9U6uQ0OaNfsqOwP6OsR8rB0eEjPnKkbbOyTu
Snq4y7tO7cOsyZkDQ+odtirmhun0aHWj1YtWNSR+uI/RM7/jZCDf0eZiXzXX
mcGxevhq2jdMtfScr+46c6ptPphqeI8zx3sPjpOsV9UeK8hdTw93fT3PTgM9
82sYEudR0ZraH/Ubmw++k/VwNHIv9epYn9ewieucP8Uc9HtBtNbRTovWQk7m
1FIPXxt7OjFac+fCvlauw3qqnppnyAbTmfoG1jjBGZxlPvja6um9nZ6ZdbEe
fXWQGdaz9TB1dC4wtfdcY2dwgK/xOe5lXzO5YehqbljP1cPU2X3U7mRu4vNc
h7WbPDx36Aa0Ap+/e8rMzC7Uw9rXPui3hzNiXy/XmcFFembQR2ZYL9Fzvrfr
sPYzHz1e7D3O9PceHOhjtCq6dYAzhXugHu7L9PCh3dHh6F40OZoXbYzWQseh
vdDbpcyLli1tvLN1OHOp9amH1s21L5q8jDF6vqwx2h3tiwYeF5JuR0/SBxoX
fYoOL2+c6/by1qtgTP2KxvRXybiUDJXso7Jx/n1EWXuq4hox2hY9TB9o2Wr2
Ud24jOtVskLDc6aE/e1nrzU8Q39o2ZpZodVr2V9t40rOuHZW6P8aWaHh61iv
rjH16xlTu74x2h293TArNHkj+25sTE8nG1OjiTE1mxrT3ynG9NfMONfqzey3
hTH9tTSmv1bG9HeqMf21Nkajo8/Rq2hv9GwDa6M90ZhocfT2mTKgW9vI0NY4
1+dtZWhvTN9nm4vf23xOeVeGc7L/1659skKTd8wKTd4pKzR5Zxm6GsNwrvE1
IWnv87LEg4ZF08LUzTjX6sTw9DCGp6cxPBcaw9PLGJ6LjOHrbZxr9d7y9DHu
7vsT7zXw9JUTnn7G8PQ3zrV6f3kGGDdzHsyJ92x+L/E7CTa0Ktp1RIxvD+kz
IX2jU6+0HlpyeFZo5muzQsPnmh4/WM6rPZ9r8mFyoiVzLT7Efbn2vk5m9g6V
YYRr5EI/oifR5WjyUfaNJkW7oqfRoWNkHun5XJOPtr+b3EftW81L7ze7hu5D
Q83PCt1+s6/N0B0YxnmeeLxxrr0nyXO7ca6Zp2aFVp8o2x3uo9c7jXNNPtm+
pxoPD+m7gLuyQv9PyAodPs1e0aHTs0I/z8kK7T1TzumeGWqO8Vmh1e+1jwec
Ra7nZ2SFVp+dFZp8blZo8nlZoeHvywqdT+1RMqGxYUAbokXRf2idV7JCnz8o
98PGnEc7rjAH64tkXuw+eJYY5zp8mUwrjHPdvsS+Vpo31/BL7XuVa7l+flJO
el2dFfr8UbnXGuc6fK186MHHs0JXPyPP0+al73XGi6zzhPNbbR+5Pl9nf8+Z
K//sxecP+NChL8jzkjHaEd33elbo9udle9l91FhvnOvwDTK8Zrza12e9PG+Y
l17fNKb3t4xznbw5K7T321mhvTdmhd5+Jyu0OufvdhYLs0Kfb/L1eV7+XHu/
L8OHxrlWz7X7e9aA7SP3wfCxMUyfGDMjtO3nsn1hTH1+92zJCt3+qcxfui/X
4V/Kht78xr63GOf6/Ct7+t68uVb/2n63ukYf6Mff5USr/iDnT8bw/GwMzy/G
MKEL0XToPPQOuijX8Nvs+09jeP7tmc3W2SrPX+6j77+N6XW7MWxoUzQqrOhQ
4u+sTQwPWpOYvGhJYuqgKYnhQXcSw4NmJM41NjF86EriXP9vlxOtyRrzQoei
S2FDw6JJc41NDCeamDO5VufMx+b6RU40yP7WQGseKCea9CA5SxuXcMbEzIW9
nN/gfD9xBmV9PeBEkx4iGzq0nGyHG+/v7+rKzqKcZ+As7z4YjjCGA+1ZSc7K
xswCrVrBno4yLz0ebQxPVWPqoB9ryYP2PCYUGruaHGix6qHQ6lVD8V1ARTmr
e6akrGVlq20NGI43zrV6rt1rWoPfE7zv8H4GZx3P5Dq8bii0d325TzSGs6Ex
nI2M4TzJmL4bG+eavLGcTYxhaGoM0ynGuf6vZ6/NXIMDfdpcNrRny1Do7Vby
NfdMrttb+DrBdIKGVm1tDT4Pnh4KfX6GnG2M4TzLuK57OZ//bYbPRHx+HWwM
J7qzvWzo1LNl62hMbb5rOD8UGr6DnJ3cB0Nn41yTd5XzPGNYu7iPnrqZt4V7
u9hvd9dy/dxHNvR5j1Do856y9jLOdXgvedDVaG4+N40M6TMIPH3NS9/9jDtY
52Jn2sM+4OnvPvq+1JheBxjnOhxdPira5SH9DX15tCler/R+/JfdEP9zbUh/
d52tR+ctjH5uSH+3HR3tulDoKzxa5PqQ/i7Kvfy7gAHeu9r7D4SkZfiMf6Ps
//vsGNLv2DEh5Rri+lDn086ZMcebQjo/3D7oB303xLPU4u9l6Ae0w9jobzHf
YBnR39OcyyB7HG0+NNcYexhurWHuvdl5jTTnUNfHem+Ws82/a8Cj78eH9B0E
92Z5vU+Wehnv/Ykh6dX878pco+3uDGmN+/d7fWK8XhDSTPnefIUe/YFmuk32
BV6jH+lrqrzUv8MeyHeXOdk72f1TZdlHDq739f4087B/gbWZ3z2+Hnx3Nd+c
83ye+O5glb6RzxXfKTR0D9fHZMnP9HqKM6WHcV7Ty33mZM8Mr3lWZ7vG6zzX
PuiBOXKNPr7CNe4v8bqhZ+ft0MM8e50gCzl4L+ZnuJ337jfPRK8n+Nw84Awn
eX2+z/8C7/N8TQ/pec2/o2zrDJhL3uNCe+M7NH5W47//6s1HQtKcvB58t8b3
QmuifzSkmLNL5L/cs4M896DPxmL3kH+Fa9zfqUT8DB3Sz8Einy2eq0e85t7a
aE/5unwW/W+h+Hkg/6iseC4H2tsy+8cvt58pXsOx3D1cc546N8j7kHlGeD1U
1jU75FwjO1yrQ/p+54do60N6H1rqGb5L+yP6t0N6VkvGG2+G9LPI4qaQ6jwb
7duQfk7+jrbd1+zdaBucz8vRXvD1mmNtnrHVXjf0epX9fBft+5B+3tjHvTZ6
9jTKip8Tzr4a/S8h/Uyukov7r8gG1xsyXCvTO3Kti/Z7SO8bT0f/XEjPNq/b
6752n0e/Ud4Qc3wT0vvHk9GeCelZfSyk85z9IPr3Q/pdsTnaeyG9L26LtiWk
96qfov0Y0v8vs9GZjnBObzkrXpOt9v9ntL9Ceu/4Ndprvr7MmGfxGnO/aP5P
Q3rmeN7+A1EDUGc=
          "]], PolygonBox[CompressedData["
1:eJwt0klKQ0EQxvHuR9bewZXgDfQYrl15AF0oEQWNOCsG0ThgFIRcwxGcUBFn
cB7ROKHiGGf/RX+LHxXSeVVf10t+WUVJeeScK0AMZ965U7SiDUtYRhWKOX+h
riCOBJ4wiWoMYBHX6Eafel2iUz3f8YZadGAKJ2hBDfYxjnY0Yh05DCGP+dvU
iMCjymS9z9XLZqzhAg2a8YhnZYsr6zGalXkLV0iiDhs40Ow0HrQDu3s/9RCb
+m0TFnCkz5XYgSdfrzLk1DOtO1j2CWqhC3eIRaGHPZvBK6ZRyvmgdnnvw2zb
6Q1WfTjr0e5+MaId/vnwjhL67gdfqMcw5jUzowyz1D3t3mbuUmdQ5MIzWcwh
hS7cYUzvIqXdZXWW1G6/Nct2/IFP/Res563uYNltR/8Ub2ih
          "]]}]}, {}, {}, {}, {}}, 
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
      LineBox[CompressedData["
1:eJwl0rVSWEEYBtCL+xPQQJkeZngEaNPiEhKcSZ0mFVRU5B3gERjcgwZ3CQRP
ILjbuVCc/Vbund35d9NL6j7WRgRB0ESbTtj/qmmkg1XWmOGWaXpp5x+D7HPA
HDGRQTAr19lgmGhzQ7KPTiKN5+VPxhjlPyccMsIx99zRzzILPPDEI5t0cc4F
p4xzxgSXvPDMb7qJsvekXGGAHq74xRF/wxr4ZikshFyUu0xxzQ07/GGPLbZp
4Bs//NZKJ9PsckeKtXQyySGfAgopopgSSinjE+V85gsVVFJFNTWEF1dHPXlk
k0EayeF92XeHKTpooZnv1JJLDll8IDU8J8kkkUgC8cQRSwzRRL2X5+3NvAL9
VVcv
       "]]}}], {}},
  AspectRatio->1,
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{Automatic, Automatic},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox["\"Risk aversion parameter\"", TraditionalForm], None}, {
     FormBox["\"Potential content of safe box\"", TraditionalForm], None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" -> 
    None, "TransparentPolygonMesh" -> True, "AxesInFront" -> True},
  PlotRange->{{41, 99}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.823947828701682*^9, 3.823947861335082*^9, 3.8239483920385814`*^9, {
   3.8239484498485003`*^9, 3.8239484552256613`*^9}, 3.8239489790439825`*^9, 
   3.823951585239015*^9, 3.8251475340876455`*^9, 3.8260800177518053`*^9, 
   3.826088987517067*^9, {3.8260890934516563`*^9, 3.8260891041576767`*^9}, 
   3.8685830379882345`*^9, 3.868583069323665*^9, 3.868583103822522*^9, 
   3.8685847975174127`*^9, 3.868585540975012*^9, 3.8685858381856747`*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"ccc75d48-2eb4-427c-94a1-5566632dd013"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
  "Equations", " ", "14", " ", "and", " ", "15", " ", "as", " ", "presented", 
   " ", "in", " ", "the", " ", "Appendix", " ", "A2"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.8202166999201965`*^9, 3.820216707508912*^9}, {
   3.8685851633930097`*^9, 3.8685852101126*^9}, 
   3.868586827698059*^9},ExpressionUUID->"deb5f8d6-c0f4-4cb8-a9c7-\
8e0997bc627f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"E12prime", "[", 
    RowBox[{"c_", ",", "p1_", ",", "p2_", ",", "x1_", ",", "x2_", ",", "r_"}],
     "]"}], "=", 
   RowBox[{
    FractionBox[
     RowBox[{"p1", " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x1", "+", "c"}], ")"}], 
         RowBox[{"1", "-", "r"}]], "-", "1"}], ")"}]}], 
     RowBox[{"1", "-", "r"}]], "+", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "p1"}], ")"}], "p2", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", " ", 
          RowBox[{"x2", "+", "c"}], ")"}], 
         RowBox[{"1", "-", "r"}]], "-", "1"}], ")"}]}], 
     RowBox[{"1", "-", "r"}]]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8200396560121436`*^9, 3.820039685023672*^9}, {
  3.8200519159201503`*^9, 3.8200519316000624`*^9}, {3.8202166748091407`*^9, 
  3.8202166753171144`*^9}, {3.8202184498823347`*^9, 3.820218452296616*^9}, {
  3.820306841129768*^9, 3.820306868535088*^9}, {3.820306900058918*^9, 
  3.820306928231456*^9}, {3.868584782400381*^9, 3.868584791854847*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"83d5dc4f-f91b-4f4c-9c69-5e2bc61cecf1"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"E21prime", "[", 
    RowBox[{"c_", ",", "p1_", ",", "p2_", ",", "x1_", ",", "x2_", ",", "r_"}],
     "]"}], "=", 
   RowBox[{
    FractionBox[
     RowBox[{"p2", " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x2", "+", "c"}], ")"}], 
         RowBox[{"1", "-", "r"}]], "-", "1"}], ")"}]}], 
     RowBox[{"1", "-", "r"}]], "+", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "p2"}], ")"}], "p1", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", " ", 
          RowBox[{"x1", "+", "c"}], ")"}], 
         RowBox[{"1", "-", "r"}]], "-", "1"}], ")"}]}], 
     RowBox[{"1", "-", "r"}]]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8200396560121436`*^9, 3.8200397013269186`*^9}, {
  3.820040024641962*^9, 3.8200400250045295`*^9}, {3.8200519343904686`*^9, 
  3.8200519487103195`*^9}, {3.82021667793178*^9, 3.820216678293208*^9}, {
  3.820218454297366*^9, 3.820218456120262*^9}, {3.8203068448744383`*^9, 
  3.820306872873798*^9}, {3.820306909849593*^9, 3.820306931399305*^9}, {
  3.868584784880335*^9, 3.868584795568184*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"ce5e1325-296a-481e-a0ec-5d7fbd8da836"],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"Replication", " ", "of", " ", "Figure", " ", "A3"}], " ", 
  "*)"}]], "Input",
 CellChangeTimes->{{3.868586249264385*^9, 3.868586249361535*^9}, 
   3.868586812080968*^9},ExpressionUUID->"16601a27-0408-48c4-a1ac-\
b4a15ffa871d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RegionPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"E12prime", "[", 
     RowBox[{"20", ",", ".25", ",", ".50", ",", "100", ",", "x2", ",", "r"}], 
     "]"}], ">", 
    RowBox[{"E21prime", "[", 
     RowBox[{"20", ",", ".25", ",", ".50", ",", "100", ",", "x2", ",", "r"}], 
     "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x2", ",", "41", ",", "99"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", 
     RowBox[{"-", "1"}], ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8200387942509623`*^9, 3.820038847207831*^9}, {
   3.8200397456879654`*^9, 3.8200398266380587`*^9}, {3.8200398977421484`*^9, 
   3.820039937707934*^9}, {3.820040031697299*^9, 3.8200400320441017`*^9}, {
   3.820040579773539*^9, 3.8200405801950755`*^9}, {3.82005195612062*^9, 
   3.8200519595406256`*^9}, {3.823857470772418*^9, 3.8238574731193027`*^9}, {
   3.8238577545296164`*^9, 3.8238577686286216`*^9}, {3.823951308618709*^9, 
   3.823951309646245*^9}, {3.8260865176137543`*^9, 3.8260865551632814`*^9}, {
   3.826086982798237*^9, 3.8260869869260125`*^9}, {3.868583404718784*^9, 
   3.868583405662678*^9}, {3.868583530239561*^9, 3.8685835517909293`*^9}, {
   3.868583916384388*^9, 3.8685839203457484`*^9}, 3.8685839832635217`*^9, {
   3.868584033359128*^9, 3.868584035327057*^9}, 3.8685848023362484`*^9},
 CellLabel->"In[18]:=",ExpressionUUID->"a8be65db-f8ed-4817-b520-f265101aa588"],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxl12tUVFUbwHG8RiCCRkLAzBzCEskwiYuJ5POKICDCAANMpkiKhlJqGCZK
iDe8X0pURNOAUhQL826Qmpcuk4amOVammGCKlYUiahYvrdV/z4f84vqtOQeH
/95nP0fvMZMTx7W3s7O7187O7p+/m3PXP2ZXMERGu/p/+XfrzUOLVxfvr+kc
qWz4aHVq7rKhyrtPvH0nyDVaOfraitVNJTHKFzssC6zyjlWealh8JqtiuLJ9
6IJs377xyvFPHVnYNMKo7HFAzhv1CcoNkYd6VV22ecfZsDec3k9Unjmm5rOs
zCTlyN8H9LA8ZVLuln9gnO9Nmy849t9TuDNZecu6vR0bclKUs3sFmcKfS1UO
27OrvPSBzZ3CA261HjIr0++bl19dOa/pe9UP0w/TD9MP0w/TD9MP0w/TD9MP
0w/TD9MP0w/TD9MP0w/TD9MP0y9wZ/sr14KODaIfph+mH6Yfph+mH6Yfph+m
H6Yfph+mH6Yfph+mH6Yfph+mH6Yfpl8Hp/0Hgot+Vv0w/TD9MP0w/TD9MP0w
/TD9MP0w/TD9MP0w/TD9MP0w/TD9MP0w/Wr2pr6T69Ss+mH6Yfph+mH6Yfph
+mH6Yfph+mH6Yfph+mH6Yfph+mH6Yfph+mH6tYw/86PV+Lfqh+mH6Yfph+mH
6Yfph+mH6Yfph+mH6Yfph+mH6Yfph+mH6Yfph+m3bkkvZ09LB6Efph+mH6Yf
ph+mH6Yfph+mH6Yfph+mH6Yfph+mH6Yfph+mH6Yfpt/eseP6WrLsVT9MP0w/
TD9MP0w/TD9MP0w/TD9MP0w/TD9MP0w/TD9MP0w/TD9Mv7Oh5fG5Tk6qH6Yf
ph+mH6Yfph+mH6Yfph+mH6Yfph+mH6Yfph+mH6Yfph+mH6bfvUW/hxRZXVQ/
TD9MP0w/TD9MP0w/TD9MP0w/TD9MP0w/TD9MP0w/TD9MP0w/TD/7ac5fZPk+
ovph+mH6Yfph+mH6Yfph+mH6Yfph+mH6Yfph+mH6Yfph+mH6Yfph+rmN8TeH
5z6q+mH6Yfph+mH6Yfph+mH6Yfph+mH6Yfph+mH6Yfph+mH6Yfph+mH6PRk3
/JqHxU31w/TD9MP0w/TD9MP0w/TD9MP0w/TD9MP0w/TD9MP0w/TD9MP0w/QL
GvDK9CYPD9UP0w/TD9MP0w/TD9MP0w/TD9MP0w/TD9MP0w/TD9MP0w/TD9MP
02/Ik0vsLVleqh+mH6Yfph+mH6Yfph+mH6Yfph+mH6Yfph+mH6Yfph+mH6ZP
UvdtxaU1etUH0wfTB9MH0wfTB9MH0wfTB/P9+s3KKKop1NT3w+ZJt2c2laTK
wB0zJS3cU7wfZH9lTDMr2/3zpyBBYjeUnAoq0ollWX58Wnii8hrPvzbWdE5S
Tt868zcPi819Qu6H5S4zKZt83Ow9LZEyYuGBdKcGgzQ+77rFaoxSzh/RLbLI
Gq3sOq1rgzFtmDL7le/H+vPz+b78/uwHPmc/YPYDZj9g1o9/n/XDrB9m/bCl
21lny1epIllzexZZPSW7/NIq644EMaaW7c7y1cuAief6Wp4aKlWl6WWlAzWp
Mq8KyX3arK43N26sLuyeqK73ma5zbPjW5jvHpi+zGpNVD8z+nOe97l6rIVmi
Lr/9S2url0zINHtXzbb5SGLLhSDXFHU/Vs9flVt02hXb9YF3zk1xikhRXlqX
06fIarsfc3/Hu6ZZvjdtv1/FW47znBpiVV/Meh2NiR2ZNjdWUk5+lGc1GmT5
eUtlTeRw5ec/sPexZMWp+zH3m8dH/+nhEKeu97n9eUzuSZvPfNHpSGFTvLof
c/9vsyNLrCvj1fWB2bN3lNYY1fWY6w8/5DEhLTxCrTfm+WK/qvX/9/xQ+9fi
es1jou1zTD+eT/X5v/ud9Q/rl3Yl6HXbfmC/Y/tDFwKKQpKU2f+Y/c36cD7w
+0y+kFqXlRmpPuf5xbXzz3xduDNKmfPD/9jIHYVN7srMk1WbEkf7rjBL/+ap
I32rbPNmnuP831uPts3H+L6+g8pszy/ncY9vt2Q3penUebwrY1+B9WGd6nnB
89zWwvds82TDQ+Ob60sN6ry0vF/2ktNLBnVe3g2/dDJIM6jz0k4beL31iu38
LjgRW1W4VBO/bp2SpjakSvuZp1/PfsJLCvrO+PKhHxJk/7znPp1SoZdL9wOu
fLA0UT4NNuyuzNbLxL7DZE9YklTUXmrpGKqXzFG7K0LGDZXMn7fkBmRqEphw
+Ovxn0TJd86JZZeHaNLV0fHq4rds5615+8TKhI1J8vriBZrrY3rp0+6lfRNz
TXI36uJr3U/r5JsfT9/wi02WqxeHVnQu1Enw1oM3HFKTpWtpr3sZs3XSGFS9
O/heskxKcXkoZrBONuS/sK5P/xRxvxHwuGsvnVzofNDFZX60OCyMvWXop8mT
d5eF14cPk+/iTTPe7qzJRmuGe6fTsVLQlJNU8ZlBVk7t91P6X7GycP0zzT0P
GyQ0b9eGkH5xsr8h36XvUoPM9rsV025PnHQNm5LXkmOQ81p774lvxctv5xec
3JNgkP7V5u9/XfHf/ezwcfceVWO91HntPnmEoeioXp3HgSF/NM76xXYeF++s
zHDaqpMQ//Exd55I/s88Cdgb6ln1hqbO5/5vFwfnhmrqfJ5evuaTrB6aOp9P
rZ19IuiqQeq67/pis5/tvM5LXq/btClVLmb2rysZ5SVx7mfDauva3hfX9UyY
m6PJpBdz13aJSpUxbz7yQkWxl9xOWuI5o3eCrDwXcX3WRb2si9tTOi8vQSZs
empKwOd6MW0rOLO5S6R4VjsGP7fE9nwEjJ/iVvWOp5qn97IOG84u0qt5+qFb
bGNrtF7NU9Nx4xGjg17N0zljl/nnfqlT87Nk0WO3Wodran7qVj07JM1XU/PT
ffuj7Ro6aFLXvvarQD+zlE3OGJR/2VN2bpbv5vub5djq67FHv/eUvVerbzln
m8V8qo9DzCxPGf9i+eAfrydIXeRj3WvL9XL14/z57QMTpeN7OZs7L9dLvX6f
+/KjiTLx4OUp3dP1knfi5LQ36xNl9+bI2j2mtvP4nSFuI1Ynybn9l8Yu89JL
4KTqfcGRJrlvmX43o16n5tWY3ZdnWefoZEeuy8Avy5KlUL8xOztDp+ZRfsX8
mPCgtveN3gU/HvgsWc5ev9G5MUUnTavmtFTFpcj2l7suH6jTqfkz+P7rWwt/
8JKVrY8vSSpPEQ9r5NbNzV7yfM+wARMqU+QnHzl26g8vGdgyytTr8VR5N87Z
vvEjLwku9RlTfydFHNaPfLTW4iUjJ4zqHHpsqCwwVecGjNJk1WTHEr9uUeI/
4KfwSSmaRL74oHnchGhxL2+sevJZTbbtGz06/3iM9Jp6/JWT3W3zrnD/0EPG
IwaJibk759eC4fJ8pv1a7622eTZ30PlFNbMMMmTx9rri74aLa8/lh6aUGMT/
w0l7Z1+Ok2fGNi8aONk2vxZ5Br1fGN42Hx95+tSfK+Kl+mJTc8/EtudtWnH6
giCjzMh/8NLT/gapT751e41mlC++qs9redY2z66d0u3K6miQnJjU203TjdJ0
+s+dlW5tP2+X78E1ZUZZ3O+wqcLRIMYrlywzXRLEMvjgDyVX9TJ4xref7D1t
lKWZa38oeWCbf3/de7jBo1yTOx084rt8PEQCHHOsx3dq8s2B++LsHiFXgz4q
XLul7fmM+rPHuw8i5N2G19Iyl2uSfmOlQ+jYCPnjU1PatY2ael/9PXhFofVj
2/w8n/71caNL2/n7U+2Jw8WpknbyxAbvcV5qXoaMddlWONf2/4GVv5wqLt2s
F3+P+v/1TkmUi+6vXiiZa5uPXc83G4qy2t6nTH22b30mSZZM7pOSGWabjwOn
BSyt8dOLy/BON/3ybPNyTXP0mbpfk+RYhD76qJ1eCgJ+87nlYJLGuKVLL7To
ZOPC6PHF75hkYe/RJd7HdWLOy3x8088m2Xwy2tu10vY+eXWT3wLrGE2cQ3v5
jDoQKSWP+gU/PEOTd9279DweYns/Z/6enV3m23OOJqN726+7Xx4lXXIqG7YN
1cS+Q8tzl1yi1fwd025Ver5bjKwftjehg48mJR+6RdzOiBGvn71X53lqkhm2
uPTzqcOkROfgVdtek/7nhlW/psXKjNKLzjfbzsOKiJRb6yvNYn/nmuR38hT9
sNi0VXMSZMeMZ6ZkH9PL/wH9UaIO
    "], {{
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[0.3], EdgeForm[None], 
       GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNmHn8V9MWhs82z1NIpFSoSPNAEyVSKZQopVGoqFASMt6bXEPIPFxjMhQ3
1xAZMiUkQzIP4XZJZjIPdz2f/ZzPuX+s1nfvtc7a77vO3ue33+qNGN933FpF
USyOf9YOv21YCmOuVtg6YeuGba9fL6ymcfK305O3g/H1w+qEbRi2UVhd/cZh
tY1vELajnrwm1qXeHnrWrx+2adhmYbuEbRG2Zdiu+q3CGhjfPGwn19kkrKHx
GmG7y4016hmnbiPjW4ftFraNeTtbj/WaioUedA5rbG5LOcC1lR6uze0FXFvo
yWttHIzt5Ab2PfWs2cY4GNvqydvPutRrJhbW6GAv4Lq3uOC6j56+djQO171c
h152MU6/u1mXNdobp25X4/RgXz15p4SNDDsqbH9x0Y8D7AVce8kBrgfq4drD
OFx76snrbRyMB8sN7H3DOtn7PsbBeJCevKHWYs1+5tKP/vYCrgPlSS8Pcw5+
h+vhd6jP8cwR5sJviLhZY5Bz3cMG6+F9pL6Hcy3txTBx0YMTfIbco8MOkd8x
+n72tY/8jtLTj2ONg3GsHMB+nH5A2Gjj8B6jJ2+469PjEXrWGC9POJ0oLrie
pKevE4yD+3jXoZcTjcNvsnXBPs44dScZZ/2T9eSdJn94fxj2QtiLYac7B9cz
5QDXs/RwnWocrmfoyTvbOBj/Jjew/11P788xDsZz9eRdZl3qzdSz/nR7AdcL
5ADXC/Wcg/ONw3Wa69DLi8OmhJ0adqncWOM849SdYZx+XKIn7x/WY73LxUIP
bvMZcq+WA1yv0cP1SnsB16v05F1rHIw3yA3s/9Sz5nXGwXi9nry7rUu9K8TC
GreEXSTXWeKC6+16+nqrcXDf6Dr0crZx+n2XdVnjJuP0+A7j9OBOPXlzxEIP
5urpwT16uN4nT/jd6xz8/qWH38P2FOzznOOZ+eIm9m9rgP3BsJvl/ZCevPuN
g/0R69GDp8QHrkflDKfH9HB6XE8PFvgceU84R++flDO1FjrH+Glrw+8ZPfye
1cNpkZ5+PKeH0xI5wPUlPf3gLD4g1xf15C01Dr9X5QOP1/TweNk4PF7Rk7fY
NenTMnPht1w+8HtbDmB/wzn696Yerm/pyXvHXPi9bj1qvescXN/Ts/4HYc/L
j28Y33v+HnD+RhX5e7RCzvTmY/sC75Xygfd/9fD+xDi8/6Mn71PjcP1cnnBa
rYfTZ8bBvkpP3s/Wpd4vetb/yh7B+7uw9+X0vZ7v6NfG6cEXrkPPfjAOv5/k
xhpfGqfuGuMfhf2oJ+8b69HLX8VCDzZK+Rly/5QDXP/Sw/V3ewHXP/Tkcclc
Lca1U+YG9nVS9qyZUo6Dca2UPXlbplyXer+JhTU2SLkXcN04ZVxw3SRlT183
TDkO7vXi97f2ctOU4/R7i5Trssb6Kcepu1nKcXqwecqevK1SxkIPaqTs6cHW
KXu4np4yt+3Ctkl5Dn7b6uFXN+Wegr2mc/SmTsq4iW0ftm7K2GunjA/eO+rJ
28E4sZ2sRw/6pYypUVj9lDnDqYEeTjvr6UE9nyNvF+fofcOUOcN1V+cYHy63
xmHjwgbJr2tYOzk1Casljz304B0i/xZhI8TdMqyZPOHXXE8/jhZfq7D9wtqL
ff+wDuIdLc/WYfuG7SXXpq5J3e5hHeVxSthYMR4Y1sU1e4R1Fm/PsL2t0Sts
HzHyStEN6IcDYtDJPqGTahor9RJj9FItx6W+Ylzedfh7j05CO3DPL/USY/TN
TkXWEuiYeo7RUXXMK3UXY3ROffPQM9zt0QCljmKMfmpg3ubGGxSVtmlpvdaO
4YnWaFxUmq2JHJo6hvPu5qHDGroeXJuZt6O10Q/osEbmwbm5eaWOam7vmlgX
zm3ERIy7ejexoxH2lFt7x3BDg7QtKt3VTkwdzAMr9//ORaWj9hZTR/MaG+9U
VNqmV1FptjZFpZe6in1/8cG1u+Nm4t1XTl1cj/4eYF5ba/e0p13Ng3MP80od
1UNOvcUE5z6OS73URz5ohH7yOdgYfNAgh4iV+/tAufYz1s25AWLtb61SRx0m
nwGOuzjXX86DrAsOtMKIotJOg+UwxDGchjoutdYg+zHMWKlnhst5uLFSO42U
D3/bRxWV1jpaTsc6hsNox2BHIxwn13GO4cH5HFNUumusfMabB27u9icUlY46
UdwTzBtsfEJR6bTR8pnoM/Dg7j9JrOiCU+U62RjcTnE8yvgU+ZzuM8OsMVFu
U42V2mmq65/p+KMi33249/B/OZzD7eV6dpG/TZfHd+2psIEpc0MjTJMbGuTc
otJdpSbh7n2NvKc5V+qoC+Q83VrgRSOcL88LHE90bro80RQXiQvdcIU80Agz
5YkGuUSelzkutdaMotJ7l9m/GdY9y3rUKnXUlXK72jGagDvtfUWlwYjd4Nw8
sd9UZG0w3dj1RaW7bigqrXWdPG80VuqoWfJEa9wsRnTJrfKY5XiaNa6Vz2yf
Z4wuuKeo9NIc+aEv7pTb3Y5LrXWHPOcYm+nc7KLSWnOLSlPdK495juFxvz0C
NzoCXfFkke/Ay4tKRz0on/mOWW9hke/0c3xmoVzRFw/LbYHj25ybX1Sa6jH5
POG41F2Pivsp65Y654Wi0lFPF5WOYryn9xjuMA+Y+7w9eNpapb4q9dYin4fP
EtegF4vNmy2WBUWlwZbIY6ljsKMLlpmL7nilqHTXq0WltV6W5zJj4OZe/5a9
W26tUlO9UVSa6k2xvuMzpXZ6VyxohY/ljNZ43x586PgR118qB74jK+S8wryX
rPFRUemlT8S+0vEi1wQH55A9wR45Mfrex3tcqcFWyhVN8akc0Aur5fSlY3ij
R1YVlQb7XJ5fmQcf7vnfFpWm+k4cX5sHrm8clzrnT+txAfyrqLTTmqLSbz+L
9VfH9OAn8+jLD64Hp9/MW2XtP+zfGvPg+bt5pab63T7+bF04oynARGxL7+5w
QxegH+CGPmAMN3QGeqPUYIzBhKYgD6zoCDRIqakYgwnNQR4YiTM+3bNCnVK/
ganUTugNsKMbwFdqJ8ZwAy95cEJ/bJIqTVVDrNRHX9BT6m0qZzTI1qnSV4xL
jU3P4I/uqCW32uoB+KA76qZKU9WWTx3HQ9QEdexFXX+DF82xs1jrWavUV/VT
pa8aiLW+efDf1edLXYQGOdhvDt8etFUjeaGrGssLTdfQnoxPWXe1s48NrVvL
ervLs6lrwK2Z41JfMUZ/tZDbej4DrkNSPn9orb4p6y60FjqrlVzQWK3lhpZq
47o1xcX7mCon5qakrLvQV0emrLXQV+i7lvawgXXr27/2zu3hc03sXQfjcO7o
HD3o5FxTa/Mc35Ju1oXzPsbpQRfnjg/r7Tt4zbPHGeUuyJ3g7CJj2ff/MHaT
/+Swg+TTP2VN2ND1e4hhgO+1sRzG2qt68of7EeY1FmNPccKpu7xODpuUsvY9
LOzQlPdKV/G3k1MveR1uzUb2bD/7NjLsKN99R+vRw4lhJ5kHrmN8N8c4buXv
Y50fmvI5aSEH9lNd54fZ4+GOW5g71Hn29mD5vhk2zfrl/9fT90PtaUPr8nwd
n+P53VxzpPXZn2OsM8ZxuUdH2+9R5oN/W+tsY58G2quR1iXn3bD3w44zj55y
NvvZ/4b2b5I95h2Mszb7fLL7YJDzu+nH+xs/wd8nOKYGe4Tz0jblc8R3djs9
Y87UqSmfq87mTjG/HLPXDjKPOfbUaSnvzb6+b971Gdak/jqusbYx9gN7n28C
f5s5A73FCk6+XZyfrmKmT230Y8XTQxydfZ4zyRm6P+zKlPd72dMa9rWf74J9
xP/RsGceCLsq5T0+L+ySlPfvVDnwrXkn7A3f//Kw11Lesx/6LsH1S9iNKZ/h
+8IuTfmcLQ57JuX9NSNsvjXfC1shr3PDnvN9nWUt6nwuJvCcH3aHffrCNag/
PewDe7Iq7LOUz/SssDUpn9uvw771Xf4oZ/jeHvaTvbg57MuUvzU3ha1O+Rvx
QtjzKe+7G8I+SXlvcbZeT/lcXB+2LOUzfF7Y2ymfkcetRZ0ffDe8lyXiA9uL
YbelvI+eDTsn5fN7i5jAc1HYnb7v2eI+0L4usrffhM21D3fZU/p5t5ha2/t7
7P/SsGtS/pbw3ubY80fDFqS8l+faX2peHPZdynv9grCVKe/jC8M+Tfmsskfe
SnmfPBT2YMp7+emwK1L+Hl8b9krK38pHwh5O+RwsDJuZ8jf4e9djrVfDrkv5
G/M/MKa2xQ==
          "]], PolygonBox[CompressedData["
1:eJwt09sv13Ecx/Hvt/kj3Lqr7pBmpNisWqUwTI2htJqFpDRsotWFQ4uccuqi
2gpNNltGimrlVOnAyCqTkhQVOlx6vvd9XTy2737fz+/9fX/eB7/D2bFZGxzH
2Q4fPHYdpwQbcRCPUKPnRDRhDEdwFP24gnjE4S56EYMQ3MBP5KMAnehDLEJR
hmJEYj+u4ROykYNz+I8i+OI7FrENu1CFh3oOw2fFtFincBGvlWsAnuEpNiEJ
DXiBFKRhFqWIQiaWcQkHcBYd6EY0grGEH/r2blTiAXYqxwt4qdj+qFVNrZaH
UIdR7EG4crmKVOVktb2u2PGqfSPS1YM3aMZxHMMrfdNfZ96qBgE6c1s1ztEd
rbaXdRer8R+sKZe9mEMbNuMkPmIGJ7AV9XiusxGYwiQCkYF3mNbzFnzAewQp
xjgmlLv9p0c9tN7ZDM2jHLk4jVbXm6kC9cRq/Q15qvk99TBTPTqPJ6q19fwO
2pWLzdw//FXu+1DtejNts5ygXtzSO+uJ7caA3tmODGLI9WbJajTsejNjs5KM
m1hFoXq8gi7s0G+/8Uu1tB354no7FKI7L6ACZ3RH+++IYluMr663U6E6c181
s1rZjtkutah3tlPrG2KHvQ==
          "]]}]}, {}, {}, {}, {}}, 
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
      LineBox[CompressedData["
1:eJwt0klXDQAYx+Eb0WCIyjlZtuO0bsd3UB/BYctWK0NFcZuMjZR5umi4UaIi
KaWQCt0bMqQIZWznuedYPOe8m3f1/2Vu3Zm7Iy4QCIRYQuxex0Y2k8N28iih
gTD9RJlnmaf1ZJHNGyJEmeA1kxQR4jvzfOMMlyjhK/08opkFSvnBWQY4Tgs/
+cU5BjlBmN/84TwXqOQxVQxRwBOqGaaGpxQyQi3PGOU5+xnnBWO84iUHuMJV
TrHIHg7ynjbauc4HDvGR23Rwg2mCfGKGO5TTyCyfqecuFTTxhTkaOM1hOjlC
F3u5x1G6OcZ99vGAXnro4yH5XOYddUxxkosU85ZWbnKNW5Txl91kEB/bVAcR
+mihniC72MYWNrGBdNJIZS1rSGE1q1jJCpJJIpEElsdaI56l/3v9B5DHasw=

       "]]}}], {}},
  AspectRatio->1,
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{Automatic, Automatic},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" -> 
    None, "TransparentPolygonMesh" -> True, "AxesInFront" -> True},
  PlotRange->{{41, 99}, {-1, 10}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.8202166874746375`*^9, 3.8202172779446445`*^9, {3.8202184383450346`*^9, 
   3.8202184622375793`*^9}, 3.820305027286642*^9, 3.820306878484299*^9, 
   3.8203069366549377`*^9, 3.8206439582900667`*^9, 3.8238574397879353`*^9, {
   3.8238574709570103`*^9, 3.8238574733869395`*^9}, {3.8238577566427283`*^9, 
   3.8238577689866405`*^9}, 3.823939176079571*^9, 3.8239513102185884`*^9, 
   3.825147551694085*^9, 3.8260800246524305`*^9, {3.8260865180960436`*^9, 
   3.8260865554459248`*^9}, 3.826086987348115*^9, 3.826088987741853*^9, 
   3.8685830381276894`*^9, 3.8685830694604025`*^9, 3.8685831039481063`*^9, 
   3.868583405863555*^9, {3.868583530472393*^9, 3.8685835519929366`*^9}, {
   3.8685839174496145`*^9, 3.8685839213243914`*^9}, {3.868584006219289*^9, 
   3.8685840361515436`*^9}, {3.868584797693363*^9, 3.8685848026225753`*^9}, 
   3.868585541139431*^9, 3.8685858383209743`*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"1e60483d-d332-4b2c-991f-4dded8b7e9df"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"Replication", " ", "of", " ", "Figure", " ", "A4a"}], " ", 
  "*)"}]], "Input",
 CellChangeTimes->{{3.8685853884821043`*^9, 3.8685853941603155`*^9}, {
  3.8685854956803656`*^9, 3.8685855136809998`*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"ef0286b5-ff75-46ac-9250-dec1d244a69b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RegionPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"E12", "[", 
     RowBox[{"20", ",", ".25", ",", ".50", ",", "100", ",", "x2", ",", "r"}], 
     "]"}], "<", 
    RowBox[{"E21", "[", 
     RowBox[{"20", ",", ".25", ",", ".50", ",", "100", ",", "x2", ",", "r"}], 
     "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x2", ",", "41", ",", "99"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", 
     RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Potential content of safe box\>\"", ",", 
      "\"\<Risk aversion parameter\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8239477907294235`*^9, 3.8239478606594543`*^9}, {
  3.823948388624626*^9, 3.823948390146117*^9}, {3.8239484259022055`*^9, 
  3.823948454088684*^9}, {3.8239489751078696`*^9, 3.8239489766119432`*^9}, {
  3.8239515846005774`*^9, 3.8239515847712746`*^9}, {3.826089090125021*^9, 
  3.8260891039229593`*^9}, {3.8544494436917105`*^9, 3.8544495185984917`*^9}, {
  3.854792995776267*^9, 3.8547930554117427`*^9}, {3.8547930860714397`*^9, 
  3.854793113144017*^9}, {3.854794135552382*^9, 3.8547941649216247`*^9}, {
  3.8547942112110476`*^9, 3.8547942303026223`*^9}, {3.8547948551153708`*^9, 
  3.8547948781807623`*^9}, {3.8547949346666*^9, 3.8547949349505043`*^9}, {
  3.85479513732035*^9, 3.854795141208486*^9}, {3.855053892202687*^9, 
  3.855053892585355*^9}, {3.8550539550006313`*^9, 3.8550539561794806`*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"6780fcc6-e93c-432b-9a63-013d0f1b4f33"],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxlmHlUU8cXx0EEcYkL4hbU4kpcsQiuxY5GqSt5LyJS1KjgVmMrRa0iLQIt
i6LWJaDiUgKiIiJYFbfAWFDRQFVciCKIQALIqpFStRV++Dv5zjvH8g/nc15O
8rkz99658wb4rJevbGNmZpZnbmb28X/aI9fNokQ5ea3ILG9paaCBPppbyjXz
Gbu9mtRTO8KDcbegKyslDQIXdZxwMfz3BYxPHkpva9jkydjfwcVDOnEhY9eL
5xPU/wpsKXV600K9GMNHer5uq46rZz5g+IDhA4YPGD5g+IDhA4YPGD7R7frZ
pKprmQ8YPmD4gOEDhg8YPmD4gOEDhk/lorlJ4cZq5gOGDxg+YPiA4QOGDxg+
YPiA4TMxLZAopC+ZDxg+YPiA4QOGDxg+YPiA4QM2uFGH1FKeRLVN1rmoKpkf
GH5g+IHhB4YfGH5g+IHhB4YfGH7FXoXfiQwG5geGHxh+YPiB4QeGHxh+YPiB
4QeGn2NKeyuDi575geEHhh8YfmD4geEHhh8YfmD4geEXYj7xqCa8jPmB4QeG
Hxh+YPiB4QeGHxh+YPiB4fdwwRpnle4F8wPDDww/MPzA8APDDww/MPzA8AOL
r5AnXH+ezPFwPKDjnjNfMHzB8AXDFwxfMHzB8AXDFwxfMHzB8H31766b4cZC
5guGLxi+YPiC4QuGLxi+YPiC4QuGLxi+0Ym1b1xUOuYLZueJidl5YmJ2npiY
nScmZueJidl5YmJ2npiYnScmZueJieE7yX3OQIPLI+YLhi8YvmD4guELhi8Y
vmD4guELhi9YNiIr0ujNkZKmJE6lu8/8wfAHwx8MfzD8wfAHwx8MfzD8wfAH
wx8Mf+svuzWHG7XMHwx/MPzB8AfDHwx/MPzB8AfDHwx/MPzB8JfvuettcLnB
/MHwB8MfDH8w/MHwB8MfDH8w/MHwB8MfbD05wl/iKCMTsnutjzBeZfGAEQ8Y
8YARDxjxgBEPGPGAEQ8Y8YARDxjxgBEPGPEcyB3MRxpPs3jAiAeMeMCIB4x4
wIgHjHjAiAeMeMCIB4x4wIgHjHisk5M7q6euy2T1YmJWLyZm9WJiVi8mZvVi
YlYvJmb1YmJWLyZm9WJiVi8mZvViYlYvJtbuCpIppHKybkmYmzSgjoIzz10o
FmtrGHe10m80iqsZ+3h376RVVrH9Apt9/AvmiddCdT6nKGd8Ovn+GklqKeO3
LR//Sqizf0iaWsORqnd2USLDY8Y747de0YQ/oA9vW2aFG2UkpXL9yHGqHMZ/
Txi1XaW7TqekWA/SKt1JaNGUHjuMsYw/jQ/3EzDuB2DM5/DDvATGfAI/nE9g
9H/4oZ69qo9dC7eRE/ewr4aqdFV012L7dRIZT6qGO4u1yhc06666rzaKI75v
y+o4xUNaH+IWq9sjI8f1H15rwrNojN2HYxqr+UTc3jNVKRHun2DXzxXlLhvl
ZPTzAdFqTT2L58LZaQlqTQXbHzCeW1n4TwoQCfM02D+hZL8ujSfiJ672qWo9
i//YKcXoVHURq1fwyR7LpwfUcSRH3vROrH3GPj+Nz1iskD5lnwfj8+v+8ZBo
lU/Y+vnG/H5Px91l/QFcFFHWKB7OkfTq0lWp6jy2vqG2j3MNLhdYPYIHNebM
DvjTnThkjH2v0qWx9bFy3nHHRdXA9uPfMb1/1YRXMx78LNVbkvqSxW8cdcJD
GmBg+5UZfMRdIRXyF/Mfng88fSBXKSlhjPxGvH1ODtlrFBey/e52/LxngEjI
d5y/eJ4+1yZMkprP+NN6QH9Fvuz//0JnMkZ9eK2a9Y+4g1APWA+8z0D8qAcw
6gHxIP/hg3xHfqJ/ID/B+D2vyCvLRAahv6A/IP/AWP/poY9rxNpytj6of+QH
GPnhvZ9EK6R3hPww9QOWHyZGftT2LUupcDnO4tvYfMtHGlDM4rNWT+1rZnaf
rWex8oej41SXWLxYv0Fb+nU0PBbyC/HhPo31jHv6Q4ZSUsme4z6L58g35Bfm
dfghf/D7eP+D3/90fXEfxfd/up6YlxDvp+uH8w7xY73w/chv7B8Y+4d6QDzI
X/QDMOoD+Q4/5C/2G4z9Rr7j99BP8X3op/g8+im+H/0Z8eM54sN5BUb+Yz3x
e4gP5xcY9YH9g4/r5iDnTnOE94dYv/aRmscuZ6po3dsn00JyhfdDH5ROon6n
hPcxr0trxU4/C+8/Bl1pF+3YXuhH4u9mpX1dxLH8iZhMn16eIfSXqBM3Yr4U
Cfv/NrH54mt7oZ/k7ewc4hrjzvb/uFuoPv9ua7+v3h6uy6ikjU2zNeJzPBH9
OHy+lKugtxLXZdiIeHIwyXG78chzevnEhmVLZ3Ok5bnxmsY+n1qML645OlhG
ZuSlV6pk1+iq23cWr18iJz/b71MalzfQmFFuBYNd5WSltG9VS3gdrT238Frh
JDn53vLCiIBVdXTPydNrbwyUE73U6CuyqaXvCyz03/SUE823nu/0q2ro3lMd
1aoiYf7Qx80SvYvlyeR9p5taZhroyHlrFJf8efJLjnmSOrCcHk96zw1c1/r5
ksuuAU7ldJrFG42R50n84Rm9tLZlLD/dPm5fYwkdqh/cOb+/kN/LkoaPj8vh
iGpe+z6GDU/pcOnVtE1HOOI/dsAO0YYClq8eK//4QTrsAfV4VNc3c5nQv/f9
6GdfVi4jaxyHPtM9yqFhLtGWlwtk5G7woaiAPjmsX9k8iojgFRrq0c3H6rKP
0M+bf3u/e9ICd5L2TVXmiC7HaPCCn+o+THAnXllO7wpf7aexRUmbS1cL/R35
69FzW2VLSR0dWNSUYjlKmIeQr4eMAxZKu+np7HZHpT8tFuaf17op37468995
p6qx3EGb/IT1i1PR0V3WnbpN5/aRxHaJF+YfzGMVJx4YtooSaGgBJ979jCdB
u7fLpIoq2uQQNy2lpvW8lS7N4Ua9pH4baqQ9xvAk3S5Opkh7QctyH6b+1br+
Ir/eWqX5C7qx4Ym580aOFBSeK1HeekinrxkVU+7DkdA+wU7apAdUesz6i77h
MhKcHzLNLj2L3vlel3U3UEbO/KVUGIZl0exnK5x3fi3MT0NdU1IuesrJ4TiX
CM2Henq994HmRXNb63+XWZfUFfXUfEeQS6erwvx0o8JWMrY1/w8mtiSo+Qr6
c1CkWh8tzE8Sfo7Edx9PFL89amvQ6+kO/SxFQ2u9DhmwarRqip728LWqEL3h
2Py0LH7vm+dVHHl+clW+8vkzemFbXkTnCo7Q98FeiqRn1LfaKvL9DY7NT8Eh
ydMXZHMkMLiTg3bIUzogbuz8pmHCvPRi2fo2bT/jSNqcsxtUFn/StaE1w7N7
cMTZfJKTXX0utc7JsX1c5M7mpbCIW8GW1J28CRzvOGzhObreszz44ll3YhW7
eKf5nlSqqKvsONW39Tzv6rtffaWB+s33Cxv+hXC+exc4O3Qf03qfKU//SppX
S2fuansnoZ9wfzA7MnRJiURO8t4PueeyupZ23vt9J76HnDyf88dCiVcNPZW0
yyHnA8/uF83xNC6uXet9o8fn1tpj1bTDhiH65RZyMmr6hJvcymo6xi9qSU4D
T+yCcp0CfF7SuY8DltB3PFlrcy1UZ3hJ25zYJE6/xZOFm/ztUr0q6b4Og3S2
13miebC9s9aqkt7u+H5/uZonMRVKD2msgX4VszTA0k+YP5q7r1Vt8Gmtd+5h
iDGnjM7Jt8j4bqZwf9nd9bZo+Xye5B2M9JYOLqOjux3QXprIk9WFizaLbEup
zaD+8ZKprf3buWSR1KeUejZ6x19uzd+p8V0NLs0l9DQJyhBb8GTL+R8TNU9a
540I++hB/3DEb97RKOMXxTTuL/pkegFHXlyO8laEFNLsca+XTlYJ96PMm+ej
s09ypHqvdRu7CTo6+0N99ORwjsyb4RprbHxEG7cUp4VFcuRe/4v2BrvH9OyJ
MwnBSzkStbpXjtr/AbV3bIoMcuVI352/8qoF9+mKkr8Tqpw50lPsUaWOu0cl
P22x9y4R7luHp8/q/u1FGbnQQxGikt6k1w7pR+sWyMi/MclVupHXaW7g0ODE
PjJy+FmdT7zzVTojXNLOy+hOZlR4Ls5wT6feXr02Hpwr3M9W5ty6lNTfnbgv
/mVntlsYVXbb+2sHM2E+xbw6+jNbi/FaJZVsq3Z+IfrvfJr+i3+wbkwNTW/7
sGBFHc/mVefaLXYVY4V5NS+0a2DpVmFexTzTO//0K41bNh2dmJ1iOVtOqnWH
5ZJp9dQ2YZ5YUcyTlHHHb3ObWs+TdGvDuVCecDsXbjM66unIEYWB56w5kidv
7MOv1dKY4SE3Mne4k+ZZMw+a3z9Frdw8xndN40hyc9W41Fwd/R81D5+K
    "], {{
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[0.3], EdgeForm[None], 
       GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNmHnc11MWx783hLJXiGhPaXlo1UK7yJOkwURJIUtNNUJKloZkmUKbSjVS
lqwjTWkoaVBZxzJLY4aZMYYxllkaMwxjzvt139/X7/njPOd77z33nM+999x7
Pr+n6dhJp0+sVRTF+PizW+i/h9CuG7KP3/QfkYqiUciv4ntf+3YP2U+9R8gB
IbVD9gw5UL1XyP6OM9Y5pE3I0SGHpxynfsjBxsP3IWp8N6iBpaG+iHOYmjiH
qw9SiLk3mEPq6f/XfjcKOVTf+DrSceI0EQfxWxgD382c01DsjbVtbh92rfXF
WCvjEH+n3y1dM/OahrRV47uT8/HdXr/Eb+d4c20PEcdv9FcVcozfrYzdwDV0
DDlKv8c6TvuZkMdCHg/pIiawdDMe8Xfpu3tIH+26hvSoEbOnGt/HG491nKDm
nHs53tH5bY3R1zYxBxgH3wPV+P7C/v4hg/RFnJPUxDlZ3VvpLNZTxE2cwY7R
bhL51jjkt5xVyr6HhJxqHLCcbjzinCamE0OGqRkb7jjxfxdSHXImfSn7Oyvk
DGOD5TvaDvYMyAty5bs148fcniHvxvc5xibm2SFDbQ8VI5hGOg7eUWpwjdAf
tqONDZZzHafdI2WMY0POFy9YLlDj42Jj4HucOMA1sca8i+zD7nshYxy71HjE
v0QftCc5jziT1ReGXBUyQR+XGQ/f33ec9nRj42OK42C8XE2cL8WAr6/VU0Ou
cBxc04yDr6v1B5bbQ34QckPIdcbA9zXiANe1asaud/wK50x1HTeqiXNKyv34
fS/kypCZIXc4B9tZ2rK+41O2nRtyc8gM488W6wxlsphucRxct6rBfpP+mDMg
fJ4Q8vv4vs1xsJPL3DPu1Z01sPAu3BuyKmSBscEyX7+zPRNyhJy4W7zs3yIx
geUuNTEX6oOxZdqyByuMPS+kaWBcEvq+kHuMR/wfOU57ufOYs9LxheJdaPxv
Q+YU2Vfz8Nks5A+uZ5G4lmoD7vu1pe8BNWvqkzKWtSGPiANcD4kD7A+rGXvU
cXA96Trw/Zh9YBwYPvuG/NE1zXJP12lL/J8aD38PioU9W297TchPtC3by8S0
wTYYn9YH8TeKFb9POf6weB+1f6W2tLe4btbxnBqM28WH7632geVnajC+IA7i
vKgm/vOOM0a95f3jHdyhP+pSi9ibzaFfDnmlyN/PhrSK/pYh78f3a+ID1+tq
sPxcDZZtxgTrm8YG1xuO035V3/h6y3Hw/sL5rBWOAw+Be/yjyNyoTpH5BTwD
zlHLcThKyXvgJfAd+EXJj/bTFxwK3lPPOQ3cj3ruR6OiwoFKTnSwdr8U1w79
HaodcRraftt1bCsq3KjkSodpx7qf8Izx29jzwBc8o4m+mtVowxPaOL+5Y/hr
YRvs1LZW+mptu5F9LV1HE+OVHOho58M74AbvFJnfdDBGO+3wAZc4Rr8dbROn
k+3GYmytX7hAyTc7a4evro7hu5vtfxWZ9xynLzhGr6LCdXoYr5ftkusc73y4
Rp+QfxeZu/QzBn0lN+ntnNqeB+cGx6Gmwz/gJvCSauPANcp3Gk3drxJL96LC
hwYVFT50UlHhUgOMDwcpedBg7YgHTxii3VDbzCu5BnbwheHGgGMMc4y3f4Tx
hjt2qn1wCLgQnKjamGfoC9/nOB9fI20zj7pygf7gCyWvGVXDjro/Tl+jtYM3
wWnGuB7i1+Q0JcdBjzX2OOPh9+Kiwjeop9RYfMETJhgD7gCH+KrIPGO8viZq
d6HzJ+v7Mtsl1ym5zyTnlHziGmNPsW+y8and3xSZx1xpbLjG5e7HJeIGH3xj
qjim2S650RRj4q/kUNO1q5XyO7BZu+vERK29p8h1Db9wFXgJfGameEpOfJpr
oLbfrF/q2o3Gucl2yY1uKCp8hTlwE3jPHOdTxxdoR60veRl6rhhvcz7+7tSO
GPNss9bZRYWvLCgq/GW+djOMN1sci4xdcpeyTd1eaQxq7DJxUJeXimuZbWKv
0I75q5w/z71cIZaV7i/nc71rgqfAgVYXFW5BnS5S5jSLiwpHKTkLGp4xx7El
4nhQO2I+oq/l+iv5whrteJd546rECv+DB8BT+pgf+KCWbtQvtX6dseEGa/W1
3jHiUPc3GHuj7TX2rRf7Oue3S/nNBwP842njgeMZ2yUX2eK8rbZL/rFVv8/b
LvkHdX23lHN9k/Ff0I61UQs3i3Gbc6ix1Fq4ALwDXvKSdvCSl533qm0wvWa7
5CWvFRVe8rqY3rBN7Ddtg+Ut28R+2/Y247/t+neI64Mi/w8GvvDnIv9fgxpb
O+X2Tvduuz4+DfmwyPv7oeMtPbMtroO86yr//qjIv495t/9UZM7F2j8P+WuR
f0f0Cts6/lbtHXp/f1/8LeSTIvPbftF3kFyXPjj4an3wW4h35C9F/v18puv4
wHXtdG2sq2H42Dtl2/7qM/XxcZHfosOif7+UfcOxPzHWofG9Z8rrHuA4cd9x
X9iTfaL/syKvpSrl+g0HqJ/yesDfNr6PTpn//bPIXBAe2CFlztBdG/pDFR21
hd995jrx3z7lXN8lbt72qfbDP+A8nVPmD9Tn/xQZD1ziwJTPgH0+yv2nDh2j
pg78t8j1abxr6aCvY1O2+9q52JxXIyfIh/8Vud6Ai0W09t1p7fny3VVNnqSU
7RZrw/cPQ7Xx3Llvx6m5N7unfA83acP3j93LPVLeN7BwXjtd914pn8UBYsB/
XdcOftZdx7qPrmtOcs7kw3uuad+U94TxfbThTMgr8o817W8NIv/g5/WNe6C5
Xc91gbmW37wf6HrmObq+36zpYNfF3TzE+/mpefmhudHQnP7cPAZ7p5Rz6HDX
fYAYuPf8fqinDd917DvCb+4uPJL7i8An4URdUs4t2nxj00/bJn538x3gPThR
zRvfPeV3kLPjHlOrVmvfzBzo7nmXbyX6ZW2ba/OxeUaO4a+VPr8yL7/0HFp7
1pzpUZ41+9zG/d/N71reM+4mv8Pe1+9L5lXbGuNtPQtynjvIXdvld5W6vf3c
mypzb5dtvr/wu7v5WeX94m4da459433jrn3t2ISiclfHO/6N9xR8HT278o4t
9kw7mQMd/caGdwKcu8TT2bM70vPtX1Tm1PV8u6TKeBftyfuPzJFp0fdKyudz
WugR7gPv6EDzucwJzn1Y6LPdkz72kydwhoHawOt4c2cWlbebe0cunmR+stZu
rpe5g1L2xx0YYM6faD8+Hwp9Vcq4n2AvU77jT4Zel/KdnxvyeMo59VToiSnn
7GOhh5tLi0I/k3IewT2rU+aY6FP8fjj0Iym/Ecw7x7nzQ28gkULWhFyU8l6u
D32GeTsp5djEJf7Vfj8d+ixzmHefWNyFk0MPTrmuUTfZC94W3iPwzfUuUHfH
FHmMfaKGD3L/aXN3qMdz3P/e7mEz97mp66v2XIakbFd+V7sfve3HD3eau73J
O02b97yneN71PE8WP/e0n/jpY4zfXj20Ocu5/bXv6dp7uO5+5ht9PbVpKYYW
5kJf82GwPnuIpaf7M8Z4/D6bEXpjyrnMmoa4xstCrkn5zZgV+saU6/3NoWen
XOeXcz4p85KRoSd4vjeQIym/2XPoS7lWzwx9fcrv+i2h70v5vo4KPdlzPzf0
kpTrAzl1sXlF7ozUf7U4OZcLQt+fci28FB8p1zPu6/SU7yw5NUr/K0Pfk3LN
uSPk9pR5wdqU7zn214Y+P2UedG/oVSnX3QtDpqZcQ7aHHqrNA47RPzr0FSnX
osWh70q5tm9yT9lPfG937riU5zOXPX7RfS75AXm1NGW/+OR+P5jyHV/GeabM
DW9NeU/Zz9Upv1O8UZzP3Z7R2JTnYL8w9IKUecpzIVtTrsFTxArO81KOTdxn
Q28JaRDyf4dyLm0=
          "]], PolygonBox[CompressedData["
1:eJwtk1tLlFEUhr+VY2aNoWSHEYJE8LJrL6UfYCQh2kXUEJpNZmEiqJ3pgJV5
SJuITlZSdrK0RDOpNMX6ASkVEh2QyIwkjMTwWax18fC+a77Z+/v2Wu/OjJbn
71kUBEEuhKBGguANZMEn6ip0FNbBB+qr6HVYDOPUJ9ET8Bs/A734cl/7Ay7h
t8E7/FfYib8Py/R36t3oE0iFM9Tn0WYIQOACtEIChCAPTom9aynswx+HX/h0
tBSOwE/qMHoO6uEf9RzsxffBCuikrkRHYK1/42202M86CVfwURjDf4MBfAV8
xn+BMvwxmMan6RngNMxS/4UmfCPM4//DW3whPMdno/lwVuy/G6Ab/wgm8MvR
YagV66WeUdfGvRe6xxa0Dv7gc6AA3+K9i1MXoQfhPX493MLfFPO6ZjO+Qaw3
MdiIPwRTga15iH/gs9Ie3hDLgM4+yWe/FRI9A/3oM+9tgvdiByzxnvSgT33W
OuPtcFksG9rjQXyb2N5roFqsh9q779CO3yR2Vt3zldiMdDar0WvwUsxrRu/B
HfjI82SfxS5I8ZkMoXfFnkWgBDrEZq9rYvjHYu/WmWhWdeZpntlOsR5q71I8
25rBsGdcs6YZTffMHYXXkOGZuYjuh1XewxdiGdNsrfRZDHovdCaHxb454hnX
u1rgs87yvbvEspPh2dY7o3dFMz7qmdOs6Z0+IJZJzaJmegHxNong
          "]]}]}, {}, {}, {}, {}}, 
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
      LineBox[CompressedData["
1:eJwt0stTDAAABvD1jGszuTiZ6WSms7OzmZ42r7JEoWi9liJs3qQ8KhVRWVEs
S0IvjyLabb1S/gJ/iN/OOPy++e7ft6YiXFy7KBAIxFmrZPoqcZQutnORS1wm
n69ECHGHHdzlGPfYSTcV3GeKSXrpo4cYD/jEGQqYYRen2UIhD+nnClfZShGP
2E0T12immCTHqeQxVQxQxxP2MEicp3wmSiP7eMZetlHCcxK0cJ0bbOQF1dzk
FidIU88QNbxkmFdMc5ZzHOA1+ykjyBve0kob7ZSS4iSZkUYIM0oDXzjPBQ4x
xkHK2cQ4E9ymg042M8spDvOOI7znIx/I4a8fpJglzTe+84Of/GKO38yzwB+S
TJAgRgdNRIlQTYggG1jPOvLIZTXZrGQFWSxnGUtZwuL/X/0HEZNcQw==
       "]]}}], {}},
  AspectRatio->1,
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{Automatic, Automatic},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox["\"Risk aversion parameter\"", TraditionalForm], None}, {
     FormBox["\"Potential content of safe box\"", TraditionalForm], None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" -> 
    None, "TransparentPolygonMesh" -> True, "AxesInFront" -> True},
  PlotRange->{{41, 99}, {-1, 0}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.868585359039003*^9, 3.8685855412885857`*^9, 
  3.8685858385189686`*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"b2ca90e7-97a3-4bee-ac33-2d3fffa715cd"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"Replication", " ", "of", " ", "Figure", " ", "A4b"}], " ", 
  "*)"}]], "Input",
 CellChangeTimes->{{3.8685853884821043`*^9, 3.8685853941603155`*^9}, {
  3.8685854956803656`*^9, 3.8685855262886906`*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"6882f9c2-49fb-4c6e-b233-0c0f10256f06"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RegionPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"E2stop", "[", 
       RowBox[{
       "20", ",", ".25", ",", ".50", ",", "100", ",", "x2", ",", "r"}], "]"}],
       ">", 
      RowBox[{"E1stop", "[", 
       RowBox[{
       "20", ",", ".25", ",", ".50", ",", "100", ",", "x2", ",", "r"}], 
       "]"}]}], "&&", 
     RowBox[{
      RowBox[{"E2stop", "[", 
       RowBox[{
       "20", ",", ".25", ",", ".50", ",", "100", ",", "x2", ",", "r"}], "]"}],
       ">", 
      RowBox[{"E12", "[", 
       RowBox[{
       "20", ",", ".25", ",", ".50", ",", "100", ",", "x2", ",", "r"}], 
       "]"}]}]}], "||", 
    RowBox[{
     RowBox[{
      RowBox[{"E21", "[", 
       RowBox[{
       "20", ",", ".25", ",", ".50", ",", "100", ",", "x2", ",", "r"}], "]"}],
       ">", 
      RowBox[{"E1stop", "[", 
       RowBox[{
       "20", ",", ".25", ",", ".50", ",", "100", ",", "x2", ",", "r"}], 
       "]"}]}], "&&", 
     RowBox[{
      RowBox[{"E21", "[", 
       RowBox[{
       "20", ",", ".25", ",", ".50", ",", "100", ",", "x2", ",", "r"}], "]"}],
       ">", 
      RowBox[{"E12", "[", 
       RowBox[{
       "20", ",", ".25", ",", ".50", ",", "100", ",", "x2", ",", "r"}], 
       "]"}]}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x2", ",", "41", ",", "99"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Potential content of safe box\>\"", ",", 
      "\"\<Risk aversion parameter\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8239477907294235`*^9, 3.8239478606594543`*^9}, {
  3.823948388624626*^9, 3.823948390146117*^9}, {3.8239484259022055`*^9, 
  3.823948454088684*^9}, {3.8239489751078696`*^9, 3.8239489766119432`*^9}, {
  3.8239515846005774`*^9, 3.8239515847712746`*^9}, {3.826089090125021*^9, 
  3.8260891039229593`*^9}, {3.8544494436917105`*^9, 3.8544495185984917`*^9}, {
  3.854792995776267*^9, 3.854793029463645*^9}, {3.8550540439290824`*^9, 
  3.855054059800621*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"78022c2b-c472-4de0-8983-c9431ddf5e94"],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxlmHtczfcfx5vlLpblltssIzPjRxlS3886iu7nHIYZSehXspjLr2XkujLW
3BLaijTTQm5zb75jpE65lRyRS6nQImJjbv3aOb/n5zwe/fzB4/k4x/m+3s/v
+/P5vr+fbsEz9FMbWFlZNaz7659/91xyjbTZphe3f51/pra2Wv0qODMrPHSk
ZM+HQ9oaeo+SbBt9ZKpjtYWLmw86ELPvE8nbNx20Lp87WvKsns6jNIPHSHY9
sD815aWFG2r6P65Vx0omz/KQa39mpFTJPDB5YPLA5IHJA5MHJg9MHpg8fVoN
6R6ouSfzwOSByQOTByYPTB6YPDB54HJPtefuEp3IP7RRb1NeLvPB5IPJB5MP
Jh9MPph8MPlg8sHkiwx6uigzplTmg8kHkw8mH0w+mHww+WDyweSD7Y+IK9ou
OjGo9c5Ao/aGzAuTFyYvTF6YvDB5YfLC5IXJC5MXJu+SyWHHnOONMi9MXpi8
MHlh8sLkhckLkxcmL0xeOKD3yeU147Qi75ce7eONF2R+mPww+WHyw+SHyQ+T
HyY/TH6Y/DD5YfL3bpF9r8z5lMwPkx8mP0x+mPww+WHyw+SHyQ+THyY/3MQl
dpZj3wDx7GizuJiadFkPTD0w9cDUA1MPTD0w9cDUA1MPTD0w9cDUA8/uuqIg
PM1PZJpZoT6Y+mDqg6kPpj6Y+mDqg6kPpj6Y+mDqg6kPpj74xptxTru7+YpO
5vunUC9MvTD1wtQLUy9MvTD1wtQLUy9MvTD1wtQLUy9MvXDXvevHRMUNF6fM
6035JW/tX852XpK97q5aX5PoLRk/MH5g/MD4gfED4wfGD4wfGD8wfmD8wPiB
8QPjB8YPvGL9xsOZjTzFPPN+Kn3B+ILxBeMLxheMLxhfML5gfMH4gvEF4wvG
F4wvGF8wvmB8wfiC/4z6voPVomGin/l5Kf3B+IPxB+MPxh+MPxh/MP5g/MH4
g/EH4w/GH4w/GH8w/mD8wfiD8Qfjb7Z5PpL+YPzB+IPxB+MPxh+MPxh/MP5g
/MH4g/EH4w/GH4w/GH8w/mD8wfiD8XfOPP9KfzD+YPzB+IPxB+MPxh+MPxh/
MP5g/MH4g/EH4w/GH4w/GH8w/mD8wfjrZX6/kf5g/MH4g/EH4w/GH4w/GH8w
/mD8wfiD8QfjD8YfjD8YfzD+YPzB+IPxt8z8vir9wfiD8QfjD8YfjD8YfzD+
YPzB+IPxB+MPxh+MPxh/MP5g/MH4g/EH4+9/5w/SH4w/GH8w/mD8wfiD8Qfj
D8YfjD+43nmNUu+8Rql3XqPUO69R6p3XKPXOa5R65zVKvfMapd55jWKIiw4I
1OjFVdM8W6nCi0zP5zvy/QK2+ufPIp0wmOadW6rTrMV7UjK1oqdpPrykFmQ3
PBlTEyDumX7vqHyfgd12NXEwhPsL0+9YZWSmrWm+zKbcV+SaP1fs/tOyXBvo
I/JNbFAq3ey2G7UjJI9yaNeko8FTdDVfT4keZ+sZb/SSn3M/YfqB7//W2D4s
UOMhCk2fX5X1c14Ec15DvZw/UC/vy9TL+xv56s/H5OH6zD9Dpl3ua+g9XPQx
Pc/PKdv8i1bbbPMQeab9tVAZW5l8LKa1Xow+crE6J/yuGjf+nemOATqxpdkq
X8fdJeqDxZ6JxtUB4oLper+pM4rH3AoP9RSzTHnzlYSOr5IzG40UA02//0C+
H8Ku/wq87TxHLyZmat7XRN2X9Xc31VMm7z88K/XmOuMenfA/OPGANvC29HPd
7FO+n8Lb20waFnW/br4y+SyS/krNPuT7LVwcW/rE/n2tiDH5OSPztQi1Wxfu
WK3iw3rq1rE19pUyz4tJ/bpE2ZTLPJy/4KvC1O83JdfvX84PTp5L6WRYWTdP
m/1Jpr/J52q+XzIf55/ko3/oD/qd9QA7PDnjHXXWX7Q99k/9iXJ9sB7Yf+Dv
rhh2ZHr6CTtTnl8U1g/9xf4F/515toXVbz4i0uxT9l+WuX7JzJP4WWFaD8Wy
fuolH++/Y0O8Xtg38xfJJk6UeXhf/N3bd3zgUl9xwtyfcj2zHmHWC79Hffx/
8tPP+Hb4snPz8kJLf9C/nGdyP+iP818XnIvZN0KuN+4P5xWsJ+4H65n9gv0E
Zr0uMfuS+xN++T7M92+Y+1HuP/Qj6w2mv+lf+pt+ZL3BrDf6l/0R3+xHMD7Y
L8jnaF6vCtdnv+H3L5n3J+mH/Yz9h//P5/QXn9evn/2V+8X1qJf9lv7k+tRH
/2x6W9+lfK6XrEeet+8Lqs7ZcVd9Fd7fpnOa5fzd4Ujj9X2bWvaLWBe16LCH
ZT9gvYZ4OgUbtZlq3rctF7sm+Mt+cZwY0W79eMv51re9mtivv+0j+x/fk54a
fghPy5HPp4jRsUed7bJlf/w6+GZV2dx8Oc/EHj7QOirumpKW/mDChkM6kfeu
ZroxuUI9eGtJ7PFWOjFz5KMWURdvqJ323vl8lJ9WpJdOfJkTcFFt9SLfbsFl
f5Fv3W5hZsJ+dYJ1yI5LC/1Es7eSBmk+3abYNZzyaMGbvuKlzasPA3v/rrQ8
675F668Xs55UOjsufqDOv9E2o9y+br1kPB3iuO0P9f6zK+6Lcy3P/36tVxo/
+FonXBMLF2T6lsn+c2q6eafzk5uqU9WXHSsGWPq3+8bBRVPWaMW7WWtaxe8v
lPu9u4Obm6ZXvpq35K2vSuZZ9tdZQ9cm5PbSilbTx3QM9DmnPtv2+sCjdyzz
w9QNU92+7esvBr4eclSbvFqeL7a8EznMpjxJGdX0P6fbWlnmC5f9/mE7snyF
U+fULPurh+X+uOrVTh/HvicVz5ofBmz+2TJ/DOhesNvptbeo7WTItt96Rul6
snjEfPcR4rMpLlU5sw2K9dSvNh0NHiEeB6QtShllUNoMrhz5RYqXWD7z+pIU
uxxlxq0ugz7q5C3WLFCXpsRnKzMHBPW/esxDrreFw0+HhZQOE9MSXq+K8SxS
RPvlt10Sh8n9JLH458iSf1ueJ32CrNfVfvD/84nnXNfc2pv31dEr0x0jx1vm
E9bL5M5ZM41vlamPjG6fP9xpmVd43i2wXZUcnnZFdbK1udBxq2V+YT9cbPo8
W+73LgmHu0XZpKrs7zcazLHanXJQzmsbrbrGpAw9I+ftTXGLn2V0y1X8bz+/
/uL4cPk8WutwYs5IH8t8xP7QKOGIdbwxV2l83erhl70t8xHPp+5/WEdlNjIq
/X9oajNY1YkHHtU59i/r1sM3hrhpbwSIcSWHxtcYDqmPk91CYko8hUOObx/N
iVwl/MfsRktjh4szAy67OPbMVZQWkUdOLfcQbX0V1Tm0UAlpMG/d5EqduPVX
8LiaTvfUFW9sjQrz1omnu3oU2J8qUYOit8SnanQiuHrfYe38ErXiopL6TpJW
ZBnOGuyjL6tnXzef9XBOgCirbPyg7OwJ1XZl0e74595iV48Lu7Q/nVEi9EXp
Ez/0FBFBGUkxMReVO5sr2odWDBPFzxxXx3xYpLhGRju18LHMY1t6zAlw99KL
ay+LAo0DH6iPSqrs+y+1zF/JT285a5foxNvf51nv7l23/iK89nxarJXz1vwD
1bFd8rVi9P37U41OV9WVP51KUGws89We9j4/Zjes+/5xvzZRbQzq0FEPmqdM
1ItBN3/uoVlarXZ+URxQYWN5H1i9PX3aqXf1wsU96F6ObZUaarul52ePdWJo
wB6HwDX31KvH2tc+bqAXwb2u/J0xsVL9rtMgR02STkw5sO9O2eRyNXpQYVRY
H534+M/ZYTXxt9S2x5ddyXuqFZeXWU8yvixWg5qVDNQ+0opmtUl3cxYWq6eM
q1IvzNCKc2W1DXcvKJDzx/yzfyfE6AvV1283/7FJ3fz1a8bzTHv9OZX54dLt
yO/DQw3Ke58UXxtQM0J4zWiVrs3Kke8HCWG+fjbl2cr5pbbBFW5e4vTYiBcZ
UTlKh+ihHp203uJ07czSsgnZykHrgstT7uvk/La3Q+irXc4eYtp7Rx7ljDEq
DZ5UtcuebZnPa1Ksjb4XdcLn9oK1McV31MYFH/U91CNAuN/wbBgfe0x13eDl
Y7vMX2wpTHXSbNqurlxz0O+L7n7idYMN6eFX9ipDnUsmtE32EZpFW6cbQ7MU
x641SenXPEREszXPciILlIPNJywpvOInXIP9bpQdWKGc/yaxhz7EV/g7p2zW
ZqiKtd7BfUJ/vQgfnBiRWVWl1misdftCdOLh/aS08L9K1RalGfN67dMK/y4l
y1IeGtV+ER28Pj4RID6LW/a58e5pVTkYPCd3kacoGvA8u7bneeW/TujxKQ==

    "], {{
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[0.3], EdgeForm[None], 
       GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNmgn4l9MSx9+DZI8oJd1KSCWRIoREWpSliEISpdIiWeqK6q+9JBGJrj1x
sxOyJvsuLtn39WZJdhd3Ps7nfX49T9OcOWfOzHznvO95Z37Pv1H/ET2Gr1MU
xer4b93gB6aiQN44qEZQtaD1gzYp8jw6m8rXC6qlLuubOceerYI2cm1zbVQP
qhm0QdCGQTukrLNlUG1tYHtrOfYaaAs/dY0Je9vItwhqHFTH9TruQ6+e6/jc
MWU/9YMaag+fjeT4/IexbOW+6sa6f9DuQa2DtlMXP/sFtXKtmbFi++CU/TQJ
2kmf2J4S8+cF7RTU1Dn2tAzannwENdcGcbXQH/h2kaN3bsq2S9+ln73Vw16b
Ivsgrj3kzfWxjblp7T709nR956C2cvx3CV+7BW8XtG+Rx/jdy/VdjKmudttr
F/8HyPF/clCvoKODDtQffg6SY6+bucbGWUGnBA0K6qAN9kyNeCaQv6CO7gP3
IZ4H+8enHG/noO7aI5bDtHWgcXR13xHGgb1usbdT8J5Bh7qPPYe7D70ji6yD
/aPkXYKO0R44esu7i7uL/rqax/2cK/PaR118Hisn3mYRT4/gJwT1K/K4p3np
o25/YyKWE11HPsk5/A8QMzEOlPc2x721NVh7x3n+PIM8f0OcOz5olGeJveFr
xXW8OTpC3cOUj01ZZxg6MT4uaOegEe4j3jO0R1wjxUPsp7mOfLpz+P446MWg
l4LOdB84Pgp6wbVz9UmM/YghqEVQ36ChMXdO0Pniwf/YIs+zp0p/rJ2nDeId
b0zEOEGO3kRtEMskOc/vhdollilBZweNBkfE0D9ol6CLtYu9ye5D78RY+2fw
mUEXFHlMzLO1R1wXyccFzXJ9rPIIY50cdkYHtQ6a4xr+FgfNC7pcmmyMl5oX
MF0mB9PVa8Uyzzn2XBU0w7Vdw8fU4FdgI8bTgy8I+leRx+hdow3ivVZOnm4K
mqv/68UJvhvkc1yvMr7r3IfeQtfJ5Y3yS4Ju1h44/i0n9kWuz5VP0O7ZKcd+
W9Dt4rgy6JWgB4MeCrpzLUx3ycnBUmNd6BnzLvHe3KEN9txjHsnB3e5Dvl/M
7F/iOrl5QHs36nuReXrC+LD9iDjB96h8sfHe6J6H3Yfe2MB4TtDJPF8pY10e
9KT2wPeUHHyPr5WP+8w7sd5rjMhPqwumZ+RgfV499r0gB+vrQcuCHivyO7xU
rC+6jvyyc+BYIX5wvCoH92tycL+hPbDw/gzyDFY6B44Pgp4zrrfF/JRzS4z1
WWNHfstco/emNpDfcR+4P9Qe+N4TPzbedR35fefwMylyPpE7KOgT8YOV+5J7
k/v3syI/c+D+XA7uL+Tg/k4MxPJV0H/M6ypzAe7/Oof8jRjA9K2c/XUijnWD
1gtarT1iXyMeYv9BTv5+lIP7Jzn37s9y7uZf5OD7Vf5p0G9y8P0uB9//5OD7
2tiJ9XtjIY4/g74Ua5EyNrBWSzkXxL5OyvvBCqZvxLpxyrESIzi/NX8bpYyH
tfXFj88NUsYP7g1T5uhtkrIN8G2aMgdfrZRjSkE1UsYJvs1T5uBjbZX4Nkt5
H3o1Y/yH+LZMmf8VVFt7YNpaDqatUl4v5F95zk9whlGg7xW8rudJbuqljK16
0LZy8NWXg+8fcvJxUMo9AHV5A+fIX6OU8YO7oXPIjVPGA+7t5eDeRv/4pm+g
tqcXoD+gPqe+p0+ooUx/sLkydfcWytTfNZWJidp8S23VUsZ2beWyf6it3TrK
2xn737EWlV6h7CXq6qOectkbNNQftXp9/TVQruV6g9KHezql3APsqI/GruFj
e2V87KCMXepw6njOh2dwjT6arrVGrd9KH9RnzbXbQrlJyn3OtsbFerOi0j+0
0F9LZey21i5+2ijTo9Bj7Ca2Zq7z7nJXvVJU+oo2RaVn2NP4qG331Qe1OTV6
15R7iX2KSt1PPb2buu3cz1wHY9pfW2Uv0V6fHZSx21Fb9ATU/Z1c5z49VNvU
3F20dYgyetTIPfXNemd9dlMPf92Vietw7eLvCOUD9NPd3LXXBnUr9Rd1WPeU
+wpq937ODXcPdXdvY6I+76XvY5R7aqtfUekrWCttnVBUeoY+xkQtzrekecr9
Q1+x9tcWPcFJyuhRpwzWH3X4yUWlTxhgbnoVlV7iZPeX/cNAfQ9SpsY/1jr7
BLEOM8bB6pW9UxnXSPOF3dOVqfOo3+YaBzX2KP2dqYxtamBqYp5vnom2xjhK
W/ijJih7yrPcP8x9Y41rtHqczzjtlrX++KB9eCeCpmmb+KqMY6LyaeqO03eV
+8veYKL+Jyu3SrkPoD6mJ6Dun2EcU9QbaozU9/Qx9DD0AxC19EzXZimXvcFs
45ijvHvKNfp8Y6L2LfuPi9WrKip1cdkDXGqs85SJ6XLlodbM1P3cN7zDvKPU
OPQAVxaVOv56Y726yLXvucZY9kkXimGG62XfAF8gtmvcT6wLtcs+6tCyn7hW
vdn6vK6o9AYLxbZIGaw3KdMn0QPcWmRM1Ly3FZX+4WYxL1YG2x3qES91713G
d48ycd+pXtkz3Gl8S9Qj3nuVifU+ZWK/XxmcS5XB8IAyGB5UBsNDymB6WJm4
H1Eu+wRkeoBlwW8pck9AP/CYmKl1l4vtCWUwPKlc1vpPi+FZ5bJ/eFKsTyuD
7Tn1wECt/4IYXlIG8/PqlT3D82J7WT2wvaIMthXKZW+woqj0BsjgowamPgbb
G8pgW6kMtjeVwfaWMhjeVgbDO8pgelcZzO8pg+19ZTB8oAyGD5XB9JEymD9W
JibquK/E+YlrYKNOLr+9n7pW9gOfi4191MfUhNSI1JJgW6Vd8FAPf11UeoBv
xPOdMnhWK4Pne2XwrFEu+4E1RaUf+KGo9AM/FpV+4Kei0sN8VlR6g5+LSm/w
S1HpDX411rK2LXuD38VGbfyHWP9SBl+y/ibuata+4FzHGrrsB5DBuZ61NNjW
t04t6++a1l/VrV2Jq4Z1I9g2slYG28bWx2U/81tR6RmorcG5ibVy2TMgl70B
dsGDzy1Sxr+ZdSr53cB6faXntsrc0G9wxm2DDrGmAhN1fx3xbKNc9g+1xVxH
GWz11Ct7gPriaaBc9gz1UqVn2FY8DdUDTyNl4t5OGRyNlcveAHmPlH/3p6be
X5ma9XQ5tXD74Hum/Dv5uKAejquCjkr5t98DUu51qG/OlFNrDEr590W+mUNS
/s2P7yTfEb6zfFumpfwd5I6/KOVvOutnBB8W1DKoQ9De6rHeSh1ib5NyL9In
+OFi2C/l7yvf1jHBB6T8m9uOroN3irjoC6Z6fpxdM7FQ0+2q36nGQ81BvcHv
eO20z/q+6rTTN/PU//vr88iU80jempuvZsbYQVwjg05LlX4PTl/VMeU+kLmR
juPf37g7Oj/KM6PP4RnsKpYLnGuiDr0Q/Uhnx2Af6JnSD1wob+d7zHPK8z1Q
m7vG/Cmee1lDw//+fT7l2rqHOowPLnIuD3We2A8z/j08rx2M5Qhj62k8+Ori
mL6Es+pszMz1NJ89zS/jXsaGX/z01tdRrjWVH+2YGI9Rn7Pq4/NxVsp1M7U6
Y57psoaGU6vurA5z8OPVX1bkbznft+EpvwPUiCNSrinHOE/teGqReT/H3Yyf
fqiFOrwv7OX9KetROLUb9k7SJs84fm/x3eqvLvvxT01K7Uj9QT3C+zBA/R6e
MTknJ6d4voONn9i6qtPFGE8xb33VGWpcQ4wZfmrKOAZpa2fnhhgz7zc1a/k7
NWPqON75Yc5PcjzN+2T4Wnkbbm6HmN8x5mSEueId4p3iNw/4SJ+HgxyzXt53
PHsHO+beg49yvpNj1rkDuAta+kzwbHDXnelz01dcZxhzeSf29Tk5y33cS9S4
1LfTHc93zJ1I7TtDTg042j3luY1x70z1ynoRvtxn8BznZjpGHz7W8QDH6M5K
+b4of2uA8/sBd/55zs1yzDsIZ433bnXQfeakh/Po8xzzOwD95eyUfxfgXoLz
/Wjq2U7yOVgTtDTlO75KfWzMSfnbcL7PXpXzE91LnnluWF9griabT+KcYszM
Tzen2J5qPG0dE08795LnPd0Lxl09F2ye7fiKonJOt5r7GZ7XNH3NN/6Jxkke
uGfHi5n5Kz2XmZ5jeRfvY/4Yt/M+n7VW/md5XqzPVv98czXd7+kc/U5QZ7z5
vcj5ieqwL8WL8mjK35Z1YvyYOagW4xdS/tad63PSxPflAuPh984nU77v143x
4ynn9eegl8zrrUHfpXznLgr6KuV7/4agT1O+s2eYB/JZ/n0Dvyk+bxzE8EvQ
ayl/a28M+jXl7+29Pos8h/f7PIH1tqDfUv72PiJOMC4TJxhfUQ+dh4Ie9BlY
Lh6wXBH0Q8p3wItiA9ctQd+m/F15I+j1lL/3P3K2KdcrzxlfS2O5TF8rgl5N
uYZ4IOjPlOuCz4IWpvx9vCforpTvUrBeLF7e3QHmin0L3Htn0O0p37fvGCtx
vmy+2Ht10E0p3/lzlRl/bo7IzyVBV6V8B34Y/OuUvwMrzQs5uTzoupTv5EuD
X5Pyd+GL4F+m/I2fF3Rtynfg9+ZxH2N8yjjnB12f8h2OjcXaWRL8mZS/aeTg
afNAXt8yt/i/wxiwcbd2VqWMDVz/B6U//Yc=
          "]], PolygonBox[CompressedData["
1:eJwt011L1EEUx/H/iC/DGy9EFi3TkjUfql3MXQpNKzSFFWmvZKGuewfdK2pB
CkJiqysYKpoVKprmA2a1lj1YaZo9mYSJUKHfYX4XH84uMztnzpmz6VevX7yW
4nmeH6m4ZzzvOy7hGN9XiFM4iQA68AyZSGO9nfgIJ5Dg+zTxLyLIxgz+oQFH
0IklZKGe/cvEcfhxBi8wi5uslRDfYh6FCGINn3AO5/ERHxBCGC8xiuM4hV5s
oxplnBknvlKuy8o1hxzlXCA+Ny63zTmpnDZXAXYxglwUYUJ3CKuGVuN6FlCN
PXit3/owhlWcRT4e4h2K1UO79h6l2vMTP/QWtuYn+IwKvck3NOstqohd+KKz
M3TWXVzQmXfU06B69BWb2lupXnYbd1ZIsxBXr+xM7GFLe+t0l3WU60621wnU
qOd2rQ9XtOcB/iBPPWxCEqeNm6l+HKARMWoaIHoMaIx4g49viEM4qjM28Bi1
qjGpO9bpzGH81lvZN95Bi2bB3uk/buvsqHGzeku57cz+0hv6VJOd7TbjZjei
uw0aN9v2jovYN272ilXLfeP+C7amp8oZVQ2HuU94eQ==
          "]]}]}, {}, {}, {}, {}}, 
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
      LineBox[CompressedData["
1:eJwl0klXz1EYB/CfBmVHKiUhsm7fvheQXYs2LVvE0jvwApqE0oAGzRpIUZKh
CA0yJQr1V+YylPD5sfjc73PuPfc59zznZhQcOVy0JQiCJo4qwjrPcpU3nGOW
FwyG51FBcE0ucp63RFjiG9MU85N6HnCGEt7RwBwvuU6UfkPyETM0sUwj1ZSy
wnteMc8Not0blo+5wEda+EAzNZTxiVYWeM1NYtwdkU8oZ502HlLLCTa4RTud
/KGDOir4xW0u0h0OTc8ueZaTbHKHHp5ymjX6+MplVjnFFy7xmV7GGGWSCe4R
q/9d+YxKfnOFKX5wn++M85x+BqgK5+J5Q0wTYZMd9hPYSSJJJLOLFFLZTRp7
SGcv+9hPBgc4SCbbw5nou8QUgzRTwXGOUUg+ueSQTRaHSCOBbcQTx1ZiiSH6
/4j//dG/BTloGA==
       "]]}}], {}},
  AspectRatio->1,
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{Automatic, Automatic},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox["\"Risk aversion parameter\"", TraditionalForm], None}, {
     FormBox["\"Potential content of safe box\"", TraditionalForm], None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" -> 
    None, "TransparentPolygonMesh" -> True, "AxesInFront" -> True},
  PlotRange->{{41, 99}, {-1, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.868585354216978*^9, 3.8685855414951305`*^9, 
  3.8685858387314234`*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"843bb0c4-f740-49c0-9482-e91c44cf0ca6"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8685860738446226`*^9, 
  3.868586076960487*^9}},ExpressionUUID->"b5750538-bcba-4b1f-a760-\
c71f97c39391"]
},
WindowSize->{1430.25, 740.25},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification:>1.2 Inherited,
FrontEndVersion->"12.3 for Microsoft Windows (64-bit) (July 9, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"b30bae3e-876e-4052-b2a8-65b94f8b2d7d"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 233, 3, 33, "Input",ExpressionUUID->"1b771191-4ce4-400a-a798-e7a8c882a346"],
Cell[816, 27, 228, 3, 38, "Output",ExpressionUUID->"5a49dc50-47cb-463d-a618-28ace5d7e9df"]
}, Open  ]],
Cell[1059, 33, 700, 16, 34, "Input",ExpressionUUID->"2117575c-309d-4821-9349-d5adf814ff8b"],
Cell[1762, 51, 1598, 37, 59, "Input",ExpressionUUID->"c965309b-9900-4e6c-8d90-3dc56d397178"],
Cell[3363, 90, 1081, 30, 59, "Input",ExpressionUUID->"b25ab621-b8fd-447f-b04d-61bccd1573a4"],
Cell[4447, 122, 1484, 35, 59, "Input",ExpressionUUID->"052545fe-9598-4fa7-986f-4b7f4853576d"],
Cell[5934, 159, 1059, 30, 59, "Input",ExpressionUUID->"5c86a984-d288-47fd-9481-8d4a94459778"],
Cell[6996, 191, 275, 6, 34, "Input",ExpressionUUID->"ce9e3883-ddad-4cb7-8414-5be3e234ff72"],
Cell[7274, 199, 235, 4, 33, "Input",ExpressionUUID->"805faf4c-9be8-49d2-9933-395a7e33bca5"],
Cell[CellGroupData[{
Cell[7534, 207, 1019, 23, 57, "Input",ExpressionUUID->"dcd583a7-ae0b-4f8e-88fd-75da28cd1230"],
Cell[8556, 232, 11904, 212, 439, "Output",ExpressionUUID->"f8ab42ec-a2e1-4167-80e9-12967c3e6f80"]
}, Open  ]],
Cell[20475, 447, 241, 4, 34, "Input",ExpressionUUID->"b54a194b-4262-402b-b9f7-4107be3a01af"],
Cell[CellGroupData[{
Cell[20741, 455, 872, 21, 57, "Input",ExpressionUUID->"7684c8ee-04fb-47ff-b4ea-dc7231766c1c"],
Cell[21616, 478, 7075, 132, 439, "Output",ExpressionUUID->"62f5829c-39f1-4f19-81a5-1599e04328d7"]
}, Open  ]],
Cell[28706, 613, 277, 6, 34, "Input",ExpressionUUID->"114aef8b-7d46-4056-bc9c-d5f45712c770"],
Cell[CellGroupData[{
Cell[29008, 623, 1996, 56, 80, "Input",ExpressionUUID->"2d4bb77e-6e1a-4186-90b5-4644382d5cf8"],
Cell[31007, 681, 11255, 200, 439, "Output",ExpressionUUID->"ccc75d48-2eb4-427c-94a1-5566632dd013"]
}, Open  ]],
Cell[42277, 884, 404, 8, 33, "Input",ExpressionUUID->"deb5f8d6-c0f4-4cb8-a9c7-8e0997bc627f"],
Cell[42684, 894, 1219, 32, 59, "Input",ExpressionUUID->"83d5dc4f-f91b-4f4c-9c69-5e2bc61cecf1"],
Cell[43906, 928, 1267, 33, 59, "Input",ExpressionUUID->"ce5e1325-296a-481e-a0ec-5d7fbd8da836"],
Cell[45176, 963, 273, 6, 34, "Input",ExpressionUUID->"16601a27-0408-48c4-a1ac-b4a15ffa871d"],
Cell[CellGroupData[{
Cell[45474, 973, 1403, 26, 34, "Input",ExpressionUUID->"a8be65db-f8ed-4817-b520-f265101aa588"],
Cell[46880, 1001, 12005, 212, 444, "Output",ExpressionUUID->"1e60483d-d332-4b2c-991f-4dded8b7e9df"]
}, Open  ]],
Cell[58900, 1216, 327, 6, 34, "Input",ExpressionUUID->"ef0286b5-ff75-46ac-9250-dec1d244a69b"],
Cell[CellGroupData[{
Cell[59252, 1226, 1567, 31, 57, "Input",ExpressionUUID->"6780fcc6-e93c-432b-9a63-013d0f1b4f33"],
Cell[60822, 1259, 11188, 199, 431, "Output",ExpressionUUID->"b2ca90e7-97a3-4bee-ac33-2d3fffa715cd"]
}, Open  ]],
Cell[72025, 1461, 327, 6, 34, "Input",ExpressionUUID->"6882f9c2-49fb-4c6e-b233-0c0f10256f06"],
Cell[CellGroupData[{
Cell[72377, 1471, 2167, 59, 80, "Input",ExpressionUUID->"78022c2b-c472-4de0-8983-c9431ddf5e94"],
Cell[74547, 1532, 11775, 210, 431, "Output",ExpressionUUID->"843bb0c4-f740-49c0-9482-e91c44cf0ca6"]
}, Open  ]],
Cell[86337, 1745, 154, 3, 33, "Input",ExpressionUUID->"b5750538-bcba-4b1f-a760-c71f97c39391"]
}
]
*)

